Private Sub CommandButton1_Click()
\'统计要合并的工作表的数量（循环次数）
For i = 2 To Sheets.Count
Worksheets(i).Select
\'选择各工作表中的数据区域并复制
irow = Worksheets(i).[B65536].End(xlUp).Row
ActiveSheet.Range(\'A2:AA\' && irow).Select
Selection.Copy
\'粘贴到第一张工作表中
Worksheets(1).Select
mrow = [a65536].End(xlUp).Row + 1
Range(\'A\' && mrow).Select
ActiveSheet.Paste
Next i
[a1].Select
CommandButton1.Enabled = False
countall = \'一共合并了\' + Str([a65536].End(xlUp).Row - 1) + \'记录,数据表合并成功！\'
MsgBox countall, vbOKOnly, \'提示信息\'
End Sub
程序中“ActiveSheet.Range(\'A2:AA\' && irow).Select”的功能用于选择每张工作表除了第一行以外的数据区域（第一张工作表除外）。
小提示：在进行本操作之前，首先要保证每张工作表的字段顺序是一致的，且每张成绩中第一行是表格的标题行。
\'统计要合并的工作表的数量（循环次数）
For i = 2 To Sheets.Count
Worksheets(i).Select
\'选择各工作表中的数据区域并复制
irow = Worksheets(i).[B65536].End(xlUp).Row
ActiveSheet.Range(\'A2:AA\' && irow).Select
Selection.Copy
\'粘贴到第一张工作表中
Worksheets(1).Select
mrow = [a65536].End(xlUp).Row + 1
Range(\'A\' && mrow).Select
ActiveSheet.Paste
Next i
[a1].Select
CommandButton1.Enabled = False
countall = \'一共合并了\' + Str([a65536].End(xlUp).Row - 1) + \'记录,数据表合并成功！\'
MsgBox countall, vbOKOnly, \'提示信息\'
End Sub
程序中“ActiveSheet.Range(\'A2:AA\' && irow).Select”的功能用于选择每张工作表除了第一行以外的数据区域（第一张工作表除外）。
小提示：在进行本操作之前，首先要保证每张工作表的字段顺序是一致的，且每张成绩中第一行是表格的标题行。