怎样使用VBA汇总行列值？

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)=myArray
End With
Application.ScreenUpdating=True
End Sub

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