將210張紙合併到一張工作簿中的一張中

Question

我在一張工作紙中合併了210張紙。我怎樣才能將210張合併成一張？第一張紙的數據標籤作爲第一行，其他紙張的數據沒有標籤作爲第一行。請幫忙。由於

Answer 1

是這樣的：

Sub CopySheets() 
' 
Dim xSheet As Worksheet 
Dim oRange As Range 
Dim sTargetSheet As String 
' 
' this is the results sheet name 
sTargetSheet = "Sheet2" 

For Each xSheet In ThisWorkbook.Worksheets 
    If xSheet.Name <> sTargetSheet Then 
     xSheet.UsedRange.Copy 
     Worksheets(sTargetSheet).Range("A" & Worksheets(sTargetSheet).Rows.Count).End(xlUp).PasteSpecial xlPasteAll 
    End If 
Next 
End Sub 

應該讓你開始說。