Excel轻松合并

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”的功能用于选择每张工作表除了第一行以外的数据区域（第一张工作表除外）。
　　小提示：在进行本操作之前，首先要保证每张工作表的字段顺序是一致的，且每张成绩中第一行是表格的标题行。