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

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