VBA练习——合并单元格

本代码是针对书《别怕，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