VBA代码实例---多个工作表内容合并到一个工作表中

Option Explicit

Sub 合并工作表()

Dim i As Integer
Dim x As Integer, y As Integer
Dim k As Integer

'    Range("A1").CurrentRegion.Select
'    Selection.Delete

Range("A1").CurrentRegion.Value = ""

For i = Worksheets.Count To 2 Step -1

If Worksheets(i).Name = "合并工作表" Then Exit For

x = Worksheets(i).Range("A1").CurrentRegion.Rows.Count
y = Worksheets(i).Range("A1").CurrentRegion.Columns.Count

If Worksheets("合并工作表").Range("A1").Value = "" Then
Worksheets(i).Range("A1").Resize(x, y).Copy Worksheets("合并工作表").Range("A1")
Else
k = Range("A1").CurrentRegion.Rows.Count + 1
Worksheets(i).Range("A3").Resize(x - 2, y).Copy Worksheets("合并工作表").Range("A" & k)
End If

Next i

Columns.AutoFit

End Sub