怎样使用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）后程序将自动汇总出行列值