如何快速批量对多个工作表中的格式化数据求和

下面介绍若何快速批量对多个工作表中的格局化数据乞降。

东西/原料

1
以下图为例，有多个工作表，数据格局一致，此刻需要将每个工作表中的总成就求出来并写入C2单位格中。
2
因为我们需要利用VBA功能，所以我们需要确保开辟东西是可用的。依次点击“文件”、“选项”、“自界说功能区”，勾选“开辟东西”。
3
我们在菜单栏点击“开辟东西”、“Visual Basic”，进入代码编纂界面。
4
在代码界面输入如下代码
Option Explicit
Sub score()
Dim i, r, s
Dim w1 As Worksheet

For i = 1 To Worksheets.Count
Set w1 = Worksheets(i)
s = 0

For r = 2 To 10
s = s + w1.Cells(r, 2)
Next r
w1.Cells(2, 3) = s
Next i

End Sub
这段代码中批量处置数据的关头在于两个FOR轮回语句。
5
保留VBA界面。然后打开EXCEL本家儿界面，依次点击“开辟东西”、“插入”、“按钮”，在表格总绘制控件，在弹出的指心猿意马宏对话框中宏名选择“score”并点击确定，可以点窜控件名称。
6
之后点击“成就”控件可以看到总分主动求出并记实在C2单位格中。