怎样使用VBA多表求和

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

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

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

4、在模块当中输入如下代码，然后运行Sub多表数据汇总() Dim sh As Wor氯短赤亻ksheet, rng As Rang髫潋啜缅e, 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 rngEnd Sub

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