database - 在一个工作簿中将 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

那应该让你开始。