怎样使用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个表数据的合计