本代码是针对书《别怕,Excel_VBA其实很简单》示例文件_ExcelHome\第4章\4.7.9 快速合并多表数据.xls 的练习,不完全同于书本中代码
Sub test()
Dim sht As Worksheet
Dim optype As String
Dim rng As Range
Dim rownum As Long
optype = "clearData" 'fillData,clearData
Application.ScreenUpdating = False
If optype = "fillData" Then
For Each sht In Worksheets
If sht.Name <> "成绩表" And sht.Name <> "版权声明" Then
Set rng = Worksheets("成绩表").Range("A65536").End(xlUp).Offset(1, 0)
rownum = sht.Range("A1").CurrentRegion.Rows.Count - 1
sht.Range("A2").Resize(rownum, 7).Copy rng
End If
Next
ElseIf optype = "clearData" Then
Worksheets("成绩表").Range("A2:G65536").Clear
End If
Application.ScreenUpdating = True
End Sub