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

应该让你开始。