Excel从多个工作表复制数据

Question

有没有办法将单元格范围从多个工作表复制到另一个工作表？ 例如：
工作表1
苹果
葡萄
桃子
樱桃
工作表2
橙子
梨
香蕉
蓝莓

我需要结果

工作表3
苹果
葡萄
桃子
樱桃
橙子
梨
香蕉
蓝莓

假设我在工作表1和2的A列中有数据，并且我需要在Sheet3的A列中显示合并的结果。 基本上，我需要在一列中显示Sheet3中Sheet 1和Sheet 2中的所有项目。

有任何想法吗？ 提前致谢。

Answer 1

由于您的数据位于同一列中，因此我假设您真正需要做的就是将每张工作表粘贴粘贴到一个主表中。 我在网络上找到了一段时间的VBA功能（对原创作者表示抱歉，我希望我知道是谁，所以我可以相信他）。 它将所有工作表合并到一个称为“主”的工作表中。 节省大量时间！ 我希望这有助于或使您接近需要的地方。

Sub CreateMasterSheet()

Application.ScreenUpdating = False
Dim wrk As Workbook
Dim sheet As Worksheet
Dim masterSheet As Worksheet
Dim rng As range

Set wrk = ActiveWorkbook

For Each sheet In wrk.Worksheets
    If sheet.Name = "Master" Then
        MsgBox "There is a worksheet called as 'Master'." & vbCrLf & _
                "Remove or rename this worksheet.", vbOKOnly + vbExclamation, "Error"
        Exit Sub
    End If
Next sheet

Set masterSheet = wrk.Worksheets.Add(After:=wrk.Worksheets(wrk.Worksheets.count))
masterSheet.Name = "Master"

For Each sheet In wrk.Worksheets
    If sheet.Index = wrk.Worksheets.count Then
        Exit For
    End If
    Set rng = sheet.range(sheet.cells(1, 1), sheet.cells(65536, 1).End(xlUp).Resize(, 256))
        masterSheet.cells(65536, 1).End(xlUp).Offset(1).Resize(rng.Rows.count, rng.Columns.count).Value = rng.Value
Next sheet

masterSheet.Columns.AutoFit
Application.ScreenUpdating = True
End Sub

Answer 2

您没有提到您的Excel版本。 在2003年和2010年，您可以使用“数据合并”来执行此操作。 有关该过程，请参见您的版本帮助。