需求
有三张表,把每张表的名称与总价提取到新的一张工作表中,点击提取按钮,
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 =