首先在开发工具中打开VBA编辑器

在单元格区域当中输入一些内容作为例子

在VBA编辑器中插入模块

在模块当中输入如下代码，然后运行

Sub 汇总行列值() Dim rng1, rng2, r As Integer, c As Integer, i As Integer, j As Integer, myArray As Variant, Selectionss As Range Set Selectionss=Application.InputBox(请输入汇总区域(不含标题行) Chr(10) 也可以用鼠标选择区域, 定位, , 0, 0, , , 8) With Selectionss r=.Rows.Count: c=.Columns.Count myArray=.Resize(r+1, c+1) Application.ScreenUpdating=False rng1=.Offset(-1, 0) rng2=.Offset(0,-1) .Offset(-1, 1)=汇总 .Offset(-1, 0)=rng1 .Offset(1,-1)=汇总 .Offset(0,-1)=rng2 For i=1 To r For j=1 To c myArray(i, c+1)=myArray(i, c+1)+myArray(i, j) myArray(r+1, j)=myArray(r+1, j)+myArray(i, j) myArray(r+1, c+1)=myArray(r+1, c+1)+myArray(i, j) Next j Next i .Resize(r+1, c+1)=myArrayEnd WithApplication.ScreenUpdating=TrueEnd Sub

快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，将弹出选择区域之对话框，选择待汇总之区域（不包括行标题和列标题，只选择数据区域B2∶E10）后程序将自动汇总出行列值

智能手机助理给我们的生活带来了极大的便利！