怎样使用VBA多表求和？

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

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

3、在VBA编辑器中插入模块

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

Sub多表数据汇总()

    Dim sh As Worksheet, rng As Range, sums As Long
    For Each rng In Range("b3:e5") '设定变量为求和区域中的单元格
      sums=0               '初始化变量为0
      For Each sh In Worksheets
          If sh.Name <> "汇总表" Then  '对汇总表以外的所有工作表数据求和
          sums=sums+sh.Range(rng.Address)  '汇总第一个表
          End If
      Next sh                           '汇总下一个
      rng=sums                         '将汇总值赋予单元格
    Next rng
End Sub

5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，“汇总表”的求和区域瞬间产生6个表数据的合计