Database 将210张工作表合并为一个工作簿中的一张工作表

我在一张工作表中有210张工作表。如何将210张图纸合并为一张图纸？第一张图纸的第一行是数据标签，其他图纸的第一行是没有标签的数据。请帮忙。谢谢诸如此类的东西：

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

子复印机（）
'
将xSheet设置为工作表
暗橙色作为射程
将sTargetSheet变暗为字符串
'
'这是结果表名称
sTargetSheet=“Sheet2”
用于此工作簿中的每个X表。工作表
如果xSheet.Name sTargetSheet，则
xSheet.UsedRange.Copy
工作表（sTargetSheet）.Range（“A”和工作表（sTargetSheet）.Rows.Count）.End（xlUp）.PasteSpecial xlPasteAll
如果结束
下一个
端接头

---

这应该可以让您开始了。

请搜索Stackoverflow。这些类型的问题（或其变体）之前已经被问过很多次了，我的回答如下，也许您可以从