Blue的博客

Private Sub CommandButton1_Click()
　　'統(tǒng)計(jì)要合并的工作表的數(shù)量（循環(huán)次數(shù)）
　　For i = 2 To Sheets.Count
　　Worksheets(i).Select
　　'選擇各工作表中的數(shù)據(jù)區(qū)域并復(fù)制
　　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) + '記錄,數(shù)據(jù)表合并成功！'
MsgBox countall, vbOKOnly, '提示信息'
　　End Sub
　　程序中“ActiveSheet.Range('A2:AA' && irow).Select”的功能用于選擇每張工作表除了第一行以外的數(shù)據(jù)區(qū)域（第一張工作表除外）。
　　小提示：在進(jìn)行本操作之前，首先要保證每張工作表的字段順序是一致的，且每張成績(jī)中第一行是表格的標(biāo)題行。