VBA案例：使用过程，把多个表的总计，登记到新的工作表中

需求

有三张表，把每张表的名称与总价提取到新的一张工作表中，点击提取按钮，
1、显示每个人员的总价
2、并且登录在新的工作表中，提取出人员姓名与总价

1. 表1

2. 表2

3. 表3

4. 新表

4. 点击按钮，显示人员名称与总价

解决方法1

1、 'Worksheet.name代表了工作表的名称，可以用它取得或修改工作表名
2、 'Worksheets引用工作表的两种格式
        '1、根据工作表的显示位置：Worksheets（1）
        '2、根据工作表的名称：Worksheets（“xx”）
3、 ' Worksheets.Count  所有工作表
4、 ' call过程调用

Option Explicit

Sub 多张工作表中成绩汇总()
        'Z代表总分；H行号;S工作表
    Dim Z, H, S
    Dim B1 As Worksheet
        '把每一张工作表循环一遍
    For S = 1 To Worksheets.Count
        'B1=新的工作表
        Set B1 = Worksheets(S) '从第一张工作表开始循环
        Z = 0 '在开始计算之前，总分暂时为0
            If B1.name <> "总价" Then
                For H = 2 To 5
                    '每找到