同一工作簿中多个工作表数据批量处理

1、检查EXCEL数据区域，确保每个工作表格式、数据分布位置一致。如果分布不一致要对数据位置进行调整。

2、将文件另存为xlsm格式。

这是因为本操作需要用到VBA函数，xls、xlsx等格式无法保存VBA函数。

3、打开上一步保存的xlsm文件，观察工具栏是否有”开发工具“，如果没有要在EXCEL选项中勾选。

4、回到EXCEL主界面，点击”开发工具“下的Visual Basic选项进入代码编写界面。

也可以使用ALT和F11快捷方式直接调出代码编写界面。

5、输入如下代码：

Option Explicit

Sub test()

    Dim w1 As Worksheet

    Dim i, j, s

    For i = 1 To Worksheets.Count

        Set w1 = Worksheets(i)

        s = 0

        For  j = 2 To 10

               s = s + w1.Cells(j, 2)

        Next  j

        w1.Cells(2, 3) = s

    Next i

End Sub

这段代码套用了两个FOR循环语句，小循环是对某一个工作表进行汇总，大循环是逐个处理工作簿中的所有工作表。

6、保存代码，回到主页面。在开发工具中点击插入窗体控件，并将宏指定为第5步保存的代码。

7、可以根据需要决定是否需要更改窗体控件名称。

此处修改为“汇总”。

8、点击“汇总”按钮，可以看到结果自动填充到了每个工作表的C2单元格中。