在excel工作簿中复制和粘贴多个工作表中的相同列的VBA代码问题

Question

代码有问题。

excel工作簿有4张。该工作簿定期更新。

-Sheet1是我想要粘贴数据的地方。

-Sheets2-4有我想要的数据。

- 范围＆＃34; A2：B2＆＃34;是Sheets2-4中数据的位置。需要将数据粘贴到Sheet1中的相同范围内。没有数据粘贴。

以下代码导致A2：B2仅在Sheet2-4中选择，并且在Sheet1中选择并复制相同的范围。

任何帮助都将不胜感激。

AdminGuard

Answer 1

您的代码是从sheet1复制/粘贴到sheet1。

1. 代码的第一行选择所有工作表。
2. 然后选择第一张纸的当前范围，并将相同的选择应用于所有纸张。
3. 在多张纸上复制选择时，只会复制第一张纸。

4. 然后将sheet1粘贴到sheet1。

   • 您无法在一个命令中从多个工作表中复制。
   • 如果可以，则无法将3张纸中的值粘贴到1张相同的目的地范围内。

您的问题表明您只需要A2：B2范围，但您的代码会选择代码下方的使用范围，如果您只需要范围A2：B2，则不需要。

以下是从单张纸张中复制/粘贴的一些代码：

Sub CopyPaste()
Worksheets("Sheet2").Range("A2:B2").Copy Destination:=Worksheets("Sheet1").Range("A2:B2")
End Sub

如果您希望复制活动表，请从上面的代码中删除工作表参考：

Sub CopyPaste()
Range("A2:B2").Copy Destination:=Worksheets("Sheet1").Range("A2:B2")
End Sub