关于合并工作表中的数据到同一工作表中代码

速度奇快！！感觉好爽！！！

再一次体会到了对象的魅力．

Sub 合并工作表中数据至同一工作簿中()
    '清除掉除标题行外的所有数据
    Worksheets("成绩").Activate
    Range("2:65536").Clear '又学会了一种表示落围的方法
    
    '借助工作表对象进行合并
    Dim Wb As Worksheet, myRng As Range
    For Each Wb In Worksheets
        With Wb
            If .Name <> "成绩" And .Name <> "成绩备份" Then
                Set myRng = Range("A65536").End(xlUp).Offset(1, 0)
                Debug.Print .Range("IV1").End(xlToLeft).Column
                .Range("A2").Resize(.Range("A65536").End(xlUp).Row - 1, .Range("IV1").End(xlToLeft).Column).Copy myRng
            End If
        End With
    Next Wb
    
                
        
End Sub

此代码适用于工作簿中不需要合并的工作表不要太多，不然光进行条件判断也要浪费时间．
而这实际上也体现了使用电子表格的习惯．