如何在 Excel 中复制多个选定的区域或范围？

Excel 内置的剪贴板常被忽视，却能帮您在工作表中轻松聚合多个内容片段！通过剪贴板窗格，您可以从不同位置逐个复制内容并集中收集，再一键粘贴到目标工作表的指定区域。此方法特别适合收集视觉内容、图形或较小选区，但请注意：Excel 将这些操作视为独立的复制——因此粘贴时格式和结构可能无法始终保持一致。以下是详细步骤和重要注意事项：

1. 单击开始功能区中的剪贴板组右下角的，即可显示剪贴板窗格。（该窗格通常位于 Excel 功能区中剪贴板组的右下角。）参见截图：

2. 逐个复制您需要的每个区域。每次复制后，所选内容会以独立项目的形式出现在左侧剪贴板窗格中。对所有要合并的区域重复此操作，即可在粘贴前通过剪贴板列表确认是否已捕获全部所需内容，并删除任何误复制的项目。

3. 转到目标工作表，选择要聚合复制内容的目标单元格，然后在剪贴板窗格中单击全部粘贴，即可一次性粘贴所有已收集的项目。

通过剪贴板粘贴时，内容默认会垂直堆叠；因此，若需按特定结构对齐数据（尤其是表格或列表），您可能需要手动调整粘贴结果。此外，剪贴板最多可保存 24 个项目——超出此数量时，最早的内容将被自动替换。请务必确认粘贴区域为空，以免意外覆盖重要数据。

轻松将多个工作表/工作簿中的多个选区合并到单个工作表/工作簿中

如果需要从多个工作表或工作簿中收集或合并内容，跨工作簿重复手动复制粘贴不仅繁琐、易出错，还极其耗时——尤其在处理大规模数据聚合时更是如此。借助 Kutools for Excel 的汇总工作表（工作表和工作簿）功能，您可高效地将多个工作表和工作簿整合至单一目标位置，全程最大限度减少手动操作，同时完整保留原始数据结构。此功能特别适用于月度报告、跨部门数据汇总或历史数据整合，助您轻松提升效率！

如果您的工作流程经常涉及复制多个不连续区域，通过 VBA（Visual Basic for Applications）自动化该过程可显著节省时间并减少人为错误。此解决方案最适合高级用户，或需要重复执行结构化任务的场景——例如每周复制相同部分，或为报告重新格式化数据。此方法提供了更高的灵活性，但需要谨慎操作并注意粘贴位置，以避免意外覆盖数据。

1. 按住 Ctrl 键，然后用鼠标选择所有要收集的不相邻区域。

2. 同时按下 Alt+F11，即可打开 Microsoft Visual Basic for Applications（VBA）编辑器窗口，然后单击插入> 模块，并将以下代码直接粘贴到模块窗口中：

Option Explicit
Sub CopyMultipleSelection()
Dim SelAreas() As Range
Dim PasteRange As Range
Dim UpperLeft As Range
Dim NumAreas As Integer, i As Integer
Dim TopRow As Long, LeftCol As Integer
Dim RowOffset As Long, ColOffset As Integer
Dim NonEmptyCellCount As Integer
' Exit if a range is not selected
If TypeName(Selection) < > "Range" Then
MsgBox "Select the range to be copied. A multiple selection is allowed."
Exit Sub
End If
' Store the areas as separate Range objects
NumAreas = Selection.Areas.Count
ReDim SelAreas(1 To NumAreas)
For i = 1 To NumAreas
Set SelAreas(i) = Selection.Areas(i)
Next
' Determine the upper left cell in the multiple selection
TopRow = ActiveSheet.Rows.Count
LeftCol = ActiveSheet.Columns.Count
For i = 1 To NumAreas
If SelAreas(i).Row < TopRow Then TopRow = SelAreas(i).Row
If SelAreas(i).Column < LeftCol Then LeftCol = SelAreas(i).Column
Next
Set UpperLeft = Cells(TopRow, LeftCol)
' Get the paste address
On Error Resume Next
Set PasteRange = Application.InputBox _
(Prompt:="Specify the upper left cell for the paste range:", _
Title:="Copy Mutliple Selection", _
Type:=8)
On Error GoTo 0
' Exit if canceled
If TypeName(PasteRange) < > "Range" Then Exit Sub
' Make sure only the upper left cell is used
Set PasteRange = PasteRange.Range("A1")
' Check paste range for existing data
NonEmptyCellCount = 0
For i = 1 To NumAreas
RowOffset = SelAreas(i).Row - TopRow
ColOffset = SelAreas(i).Column - LeftCol
NonEmptyCellCount = NonEmptyCellCount + _
Application.CountA(Range(PasteRange.Offset(RowOffset, ColOffset), _
PasteRange.Offset(RowOffset + SelAreas(i).Rows.Count - 1, _
ColOffset + SelAreas(i).Columns.Count - 1)))
Next i
' If paste range is not empty, warn user
If NonEmptyCellCount < > 0 Then _
If MsgBox("Overwrite existing data?", vbQuestion + vbYesNo, _
"Copy Multiple Selection") < > vbYes Then Exit Sub
' Copy and paste each area
For i = 1 To NumAreas
RowOffset = SelAreas(i).Row - TopRow
ColOffset = SelAreas(i).Column - LeftCol
SelAreas(i).Copy PasteRange.Offset(RowOffset, ColOffset)
Next i
End Sub

3. 在 VBA 窗口中，点击运行按钮（或按 F5）即可执行代码。

4. 将弹出一个输入框，提示您指定要粘贴合并区域的目标左上角左侧的单元格。确认后，单击确定。

注意事项与故障排除：VBA 代码将从指定目标位置的左上角开始粘贴所选区域。请注意潜在的数据覆盖风险——若目标区域非空，系统将弹出警告。如遇“下标越界”等错误，请确认您的选区是否完全由单元格区域组成。此方法不支持复制图形、图表等非单元格对象，仅会复制单元格的值与格式。

Kutools for Excel 的多区域复制工具为您提供更高效的解决方案：只需在工作表中选中所有目标区域，即可一步完成复制。通过简洁直观的界面，您能精准选择粘贴方式——无论是全部内容、仅公式、仅数值还是仅格式。还可选择性保留行高与列宽，大幅提升效率，确保格式统一！

1. 按住 Ctrl 键逐个选择区域，然后转到 Kutools > 多区域复制。参见截图：

2. 在多区域复制对话框中，从全部选项中选择选择性粘贴，然后单击确定进行确认。您还可在此进一步自定义粘贴设置——例如仅粘贴数值或保留全部格式。

注意：若要为所有区域保留原始行高和列宽，请在单击确定前，先勾选包括行高和包括列宽选项。当结构外观至关重要时（例如创建模板或整洁报告），此功能非常实用。

3. 在弹出的目标选择框中，指定目标粘贴区域左上角左侧的单元格，然后单击确定。

所有选定区域将连续粘贴至目标位置，并可按需保留原始尺寸。此方法高效快捷，省去重复的手动复制粘贴操作，还能根据您的工作流程灵活定制粘贴效果。

单击此处了解有关多区域复制功能的更多信息

从多个工作表或不同工作簿中聚合数据片段，是生成汇总报告或进行数据分析的常见需求。手动操作不仅耗时，还容易出错，尤其在处理大型文件时更是如此。Kutools for Excel 的汇总工作表功能，让从多个工作表甚至工作簿中复制指定区域变得简单直观、步步引导。此工具非常适合月度数据整合、合并调查结果、汇总发票数据等任务——只要数据分散在多个来源，它都能轻松应对！

1. 首先，单击 Excel 功能区上的 KUTOOLS PLUS> 合并。

2. 在“汇总工作表 – 第 1 步（共 3 步）”对话框中，选择将多个工作表从工作簿合并到一个工作表中，然后单击下一步。

3. 在第 2 步（共 3 步）中，请执行以下操作：

（1) 在工作簿列表中，选择目标工作簿，然后单击每个工作表后的浏览按钮，即可指定所需的确切区域。
（2) 如需包含其他工作簿，请单击添加，并针对新增文件重复步骤（1) 以指定区域。
（3) 确认所有选择无误后，单击完成。

4. 系统将弹出提示，询问您是否要将当前设置保存为方案以供将来使用。单击是即可保存，或单击否可不保存并继续操作。

完成后，来自不同工作表或工作簿的所有限定区域将自动收集并放置到一个新工作表或工作簿中，无需重复手动复制粘贴。这不仅保留了数据结构，还大幅加快了整合分散信息的速度。

对于希望将非连续区域的内容聚合到单一列表或汇总表中，而又不想使用 VBA 或剪贴板的用户，Excel 公式非常有帮助。这尤其适用于处理结构化数据集的场景，例如将多个列或列表中的所有数据汇总到一个区域。以下是使用以下公式的实际示例：

1. 假设您希望将区域 A1:A5 和 C1:C5 合并到从单元格 E1 开始的单列中，请在 E1 中输入以下公式：

=VSTACK(A1:A5, C1:C5)

2. 按 Enter 确认，两个区域中的所有值将依次堆叠显示在 E1 及其下方单元格中。如需将多个非相邻区域的数据汇总到其他位置，只需修改 VSTACK 函数中的区域引用即可。

注意事项：这些公式适用于静态数据汇总，但不会保留格式、公式、图表或合并单元格。它们最适合用于合并列表或简单表格。如遇 #REF!等错误，请仔细检查区域边界。