如何快速批量對多個工作表中的格式化數據求和

下面介紹若何快速批量對多個工作表中的格局化數據乞降。

東西/原料

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單位格中。