☰

excel - 如何粘贴多个范围，（2 张表）相同间隔？解决方法？

tag-icon • tag-icon microsoft-excel copy-paste
excel - 如何粘贴多个范围，（2 张表）相同间隔？解决方法？

我想将下图中 Book 2 工作表中选定的范围复制到 Book 2 左侧另一张工作表中选定的红色单元格中。

在此处输入图片描述

如何将 Book 2 中的这些复制单元格放入另一张表中的相同选定范围内？它会引发错误：

无法粘贴到多个选择中。

如果有必要的话我确实有 Kutools。

答案1

这个宏可以做到：

Sub Macro1()

i = 0
num_items_to_copy = 3

Do While i < num_items_to_copy
  Windows("Book2").Activate
  Range("A1").Offset(i * 2, 0).Copy

  Windows("FULL Catalogue.xlsx").Activate
  Range("K3").Offset(i * 2, 0).Select
  ActiveSheet.Paste
  i = i + 1
Loop

End Sub

您需要将 num_items_to_copy = 3 更改为等于要复制的实际项目数。

另外，更新 Windows（“FULL Catalogue.xlsx”）以匹配您的工作簿的实际名称。

要运行宏，请按 Alt-F11 打开 Visual Basic 窗口。左侧是一个名为 Modules 的文件夹，右键单击它并选择插入模块。将宏粘贴到主窗口中，然后点击顶部的绿色播放按钮。

相关内容