1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行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
5、快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，訇咀喃谆将弹出选择区域之对话框，选择待汇总之区域（不包括行标题和列标题，只选择数据区域B2∶E10）后程序将自动汇总出行列值
