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

网友投稿 449 2023-12-19

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

例如,您有一个很大的工作表,现在您只想复制一些选定范围并分发到其他工作表。 但是,当您选择多个范围并单击“复制”时,将出现一个提示对话框,提醒您“该命令不能用于多个选择。” 在这种情况下,如何快速复制多个选定范围? 这里有一些技巧可以帮助您解决此任务。

使用剪贴板复制多个选定范围 使用VBA代码复制多个选定范围 从一个工作表中复制多个选定范围 从许多工作表/工作簿中复制多个范围 使用剪贴板复制多个选定范围

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

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

。 看截图:

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

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

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

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

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

全功能免费试用 30-天!

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

使用VBA代码复制多个选定范围

使用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乌顿。 参见上面的截图:

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

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

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

按钮。

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

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

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

从许多工作表/工作簿中复制多个范围

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

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

1。 点击 Kutools 加 > 结合.

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

按钮。

3

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

(1)在 工作簿清单 部分,然后单击 浏览

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

(2)点击 地址

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

(3)点击 完成 按钮。

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

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

按钮,根据需要。

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

演示:从一个工作表中复制多个选定范围 演示:从许多工作簿/工作表中复制多个选定范围
Kutools for Excel 包括适用于Excel的300多种便捷工具,可以在30天之内免费试用。 立即下载并免费试用!

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗? 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel!

为什么需要 Kutools for Excel

🛠️  超过 300 项强大功能: Kutools 包含 300 多项高级功能,可简化您在 1500 多种场景中的工作。

📈  卓越的数据处理能力:合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力!

⏱️  高效的批量操作:当你可以聪明地工作时,为什么还要付出额外的努力呢? 轻松批量导入、导出、组合和调整数据。

📊  定制的图表和报告:访问各种附加图表并生成富有洞察力的报告。

🗄️  强大的导航窗格:通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。

📝  七种类型的下拉列表:通过各种功能和类型的下拉列表使数据输入变得轻而易举。

🎓  用户友好:对于初学者来说轻而易举,对于专家来说是一个强大的工具。

立即下载,与 Excel 一起穿越时空!

阅读更多 免费下载... 采购... 
Office Tab 为 Office 带来选项卡式界面,让您的工作更轻松
在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50%,并减少数百次鼠标单击!
阅读更多 免费下载... 采购... 

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:如何在Excel中将图像从工作表复制到用户窗体?
下一篇:如何将多个工作表从其他工作簿复制到新工作簿?
相关文章