如何在Excel中复制多个选择或范围？

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

1。 点击 首页 > ，在 剪贴板 组以显示 剪贴板 面包.

。 看截图：

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

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

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

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

将来自不同工作簿的数十张工作表合并到一张工作表中可能会很乏味。 但是随着 Kutools for Excel“ 合并（工作表和工作簿） 实用程序，只需单击几下就可以完成！

使用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 可以帮助您轻松快速地从活动工作表中复制多个范围。 请执行以下操作：

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

。 看截图：

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

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

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

按钮。

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

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

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

1。 点击 Kutools 加 > 结合.

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

按钮。

3

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

（1）在 工作簿清单 部分，然后单击 浏览

每个工作表后面的按钮以指定每个工作表的范围；

（2）点击 地址

按钮添加要从中复制范围的其他工作簿，然后重复上述（1）以在添加的工作簿中指定范围。

（3）点击 完成 按钮。

4。 然后一个 Kutools for excel 对话框出现并要求保存组合场景。 请点击 是 按钮或 没有

按钮，根据需要。

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

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！