如何在Excel中复制多个选择或範围？-英雄云拓展知识分享

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

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

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

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

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

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

将来自不同工作簿的数10张表合併为一张表可能很麻烦。 但是使用tool的 合併（工作表和工作簿） 实用程序，只需单击几下就能够完成！

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

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

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

选项显式子CopyMultipleSelection（）Dim SelAreas（）作为范围Dim PasteRange作为范围Dim UpperLeft作为范围Dim NumAreas作为整数，i作为整数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⑴，_ ColOffset + SelAreas） （i）.Columns.Count⑴）））接下来的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 按钮。 看截图：

复制多个范围 的功效 Excel的tool 可以帮助您轻鬆快捷地从活开工作表中复制多个范围。 请履行以下操作：

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

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

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

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

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

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

tool提供了另外一个 合併工作表 该实用程序可在Excel中轻鬆地从多个工作表或多个工作簿中复制多个范围。 请履行以下操作：

1。 点击 tool 加 > 结合.

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

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

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

4。 然后出现一个tool对话框，并要求保存组合方案。 请点击 是 按钮或 没有 按钮，针对需要。

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