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

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

东西/原料

• EXCEL2010及以上版本

方式/步调

1. 1

   以下图为例，有多个工作表，数据格局一致，此刻需要将每个工作表中的总成就求出来并写入C2单位格中。

   
2. 2

   因为我们需要利用VBA功能，所以我们需要确保开辟东西是可用的。依次点击“文件”、“选项”、“自界说功能区”，勾选“开辟东西”。

   
3. 3

   我们在菜单栏点击“开辟东西”、“Visual Basic”，进入代码编纂界面。

   
4. 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. 5

   保留VBA界面。然后打开EXCEL本家儿界面，依次点击“开辟东西”、“插入”、“按钮”，在表格总绘制控件，在弹出的指心猿意马宏对话框中宏名选择“score”并点击确定，可以点窜控件名称。

   
6. 6

   之后点击“成就”控件可以看到总分主动求出并记实在C2单位格中。

   

注重事项

• 若是这篇经验对您有所帮忙，请投票撑持并转发帮忙更多的人。