1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Private Sub Worksheet_Cha艘绒庳焰nge(ByVal Target As Ra荏鱿胫协nge)If Target.Address="$E$2" ThenActiveWorkbook.Names.Add Name:="语文", RefersToR1C1:="=Sheet1!" & Range([b2], Range("b1048576").End(xlUp)).Address(, , xlR1C1)ActiveWorkbook.Names.Add Name:="数学", RefersToR1C1:="=Sheet1!" & Range([c2], Range("c1048576").End(xlUp)).Address(, , xlR1C1)ActiveWorkbook.Names.Add Name:="地理", RefersToR1C1:="=Sheet1!" & Range([d2], Range("d1048576").End(xlUp)).Address(, , xlR1C1)MsgBox Target & "合计为：" & WorksheetFunction.Sum(Range(Target.Text))End IfEnd Sub
5、在单元格E2下拉框中选择一个求和项目，程序将弹出该项目的汇总数据
