database - 1 つのワークブックで 210 枚のシートを 1 つのシートにマージする

Question

1 つのワークシートに 210 枚のシートがあります。210 枚のシートを 1 枚のシートに結合するにはどうすればよいですか? 最初のシートには最初の行としてデータ ラベルがあり、他のシートには最初の行としてラベルのないデータがあります。助けてください。ありがとう

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

これで始められるはずです。