的帮助下 剪贴板，您可以一次将所有选定范围粘贴到另一个范围或工作表。 请执行以下操作：

1。 点击 主页 > 在 剪贴板 组以显示 剪贴板 面包.。 看截图：

2。 然后一一复制所需的选定范围。 同时，复制的范围已出现在 剪贴板 面包. 参见上面的截图：

3。 选择将所有复制的范围粘贴到的目标范围的第一个单元格，然后单击 全部粘贴 按钮在 剪贴板 窗格。

然后，所有复制的范围都已粘贴到指定的目标范围中。

轻松地将多个工作表/工作簿中的多个选择组合到单个工作表/工作簿中

将来自不同工作簿的数十张表合并为一张表可能很麻烦。 但是使用Kutools for Excel的 合并（工作表和工作簿） 实用程序，只需单击几下就可以完成！ 全功能30天免费试用！

Kutools for Excel -包括300多个用于Excel的便捷工具。 全功能30天免费试用，无需信用卡！ 立即行动吧!

使用VBA代码，您还可以复制多个选定范围并将其粘贴到任何其他工作表中。

1。 拿着 按Ctrl 键，然后选择要使用的多个非相邻范围。

2。 按 其他 + F11 按键同时打开 适用于应用程序的Microsoft Visual Basic 窗口中，单击 插页 > 模块，然后将以下代码输入到模块中：

选项显式子CopyMultipleSelection（）Dim SelAreas（）作为范围Dim PasteRange作为范围Dim UpperLeft作为范围Dim NumAreas作为整数，我作为Integer Dim TopRow如长，LeftCol作为整数Dim RowOffset如长，ColOffset如整数Dim NonEmptyCellCount如整数如果未选择范围，则如果TypeName（Selection）<>“ Range”，则MsgBox“选择要复制的范围。允许多项选择。” 退出子结束如果'将区域存储为单独的范围对象，则NumAreas = Selection.Areas.Count ReDim SelAreas（1到NumAreas）对于i = 1到NumAreas设置SelAreas（i）= Selection.Areas（i）Next'确定左上角多个选择中的单元格TopRow = ActiveSheet.Rows.Count LeftCol = ActiveSheet.Columns.Count对于i = 1到NumAreas如果SelAreas（i）.Row <TopRow然后TopRow = SelAreas（i）.Row如果SelAreas（i）.Column <LeftCol然后LeftCol = SelAreas（i）。列Next Set UpperLeft = Cells（TopRow，LeftCol）'在错误继续时获取粘贴地址Next Set PasteRange = Application.InputBox _（Prompt：=“请指定粘贴的左上单元格范围：“，_标题：=”复制多重选择“，_类型：= 8）发生错误时GoTo 0'如果取消，则退出如果TypeName（PasteRange）<>” Range“然后退出Sub'确保仅左上方的单元格使用的Set PasteRange = PasteRange.Range（“ A1”）'检查现有数据的粘贴范围NonEmptyCellCount = 0对于i = 1到NumAreas RowOffset = SelAreas（i）。行-TopRow ColOffset = Sel Areas（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）））接下来的i'如果粘贴范围不为空，则警告用户If NonEmptyCellCount <> 0则_如果MsgBox（“是否覆盖现有数据？”，vbQuestion + vbYesNo，_“复制多个选择“）<> vbYes然后退出Sub'复制并粘贴每个区域，对于i = 1到NumAreas RowOffset = SelAreas（i）。行-TopRow ColOffset = SelAreas（i）。列-LeftCol SelAreas（i）.Copy PasteRange.Offset（ RowOffset，ColOffset）下一个i End Sub

3。 然后点击 运行 按钮运行代码。

4。 现在，请指定一个单元格以将范围粘贴到开头 复制多项选择 对话框，然后单击 OK 按钮。 看截图：

热带地区的 复制多个范围 实用程序 Kutools for Excel 可以帮助您轻松快速地从活动工作表中复制多个范围。 请执行以下操作：

Kutools for Excel -包括300多个用于Excel的便捷工具。 全功能30天免费试用，无需信用卡！ 立即行动吧!

1。 选择要一一使用的范围，而无需按住 按Ctrl 键，然后单击 Kutools > 复制范围。 看截图：

2。 在 复制多个范围 对话框，检查 全部 选项 特殊粘贴 部分，然后单击 好吧b乌顿。 参见上面的截图：

请注意： 如果要将行高和列宽保持在原始范围内，请检查 包括行高 选项和 包括列宽 复制多个范围对话框中的选项。

3。 并在以下提示框中指定一个单元格以粘贴范围，然后单击 OK 按钮。

现在，所有选定范围都将粘贴到指定单元格中，其行高和列宽与原始选择的行高和列宽相同。

单击此处，了解有关“复制多个范围”实用程序的更多信息。       

Kutools for Excel -包括300多个用于Excel的便捷工具。 全功能30天免费试用，无需信用卡！ 立即行动吧!

Kutools for Excel提供了另一个 合并工作表 该实用程序可在Excel中轻松地从多个工作表或多个工作簿中复制多个范围。 请执行以下操作：

Kutools for Excel -包括300多个用于Excel的便捷工具。 全功能30天免费试用，无需信用卡！ 立即行动吧!

1。 点击 Kutools Plus > 结合.

2.在打开的合并工作表–第1步，共3对话框中，请检查 将工作簿中的多个工作表合并为一个工作表 选项，然后单击 下一页 按钮。

3。 在“合并工作表–第2步，共3步”对话框中，请执行以下操作：

（1）在 工作簿清单 部分，然后单击 浏览 每个工作表后面的按钮以指定每个工作表的范围；
（2）点击 加入 按钮添加要从中复制范围的其他工作簿，然后重复上述（1）以在添加的工作簿中指定范围。
（3）点击 完 按钮。

Kutools for Excel -包括300多个用于Excel的便捷工具。 全功能30天免费试用，无需信用卡！ 立即行动吧!

4。 然后会出现一个Kutools for excel对话框，并要求保存组合方案。 请点击 有 按钮或 没有 按钮，根据需要。

到目前为止，已复制多个工作表或工作簿中的所有指定范围，并将其粘贴到新工作簿中。