Question

我在解决这个问题时遇到了问题。我只想在第一张纸之前复制左边的第二张纸。然后将信息从刚刚成为第二张的信息复制到新的最左页。我在SELECTION.Copy上收到一个错误，指出缺少一个预期的变量。

Sub GenerateInvoice()
     Sheets(2).Select
     Sheets(2).Copy Before:=Sheets(1)
     Sheets(2).Select
     Range("H2:N2").Select
     SELECTION.Copy
     Sheets(1).Select
     Range("E11").Select
     SELECTION.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
End Sub

Answer 1

您是否有任何隐藏的工作表或非工作表工作表（例如图表）？

您通常不需要选择/激活：

Sub GenerateInvoice()
     Sheets(2).Copy Before:=Sheets(1)
     With Sheets(2).Range("H2:N2")
         Sheets(1).Range("E11").Resize(1, .Columns.Count).Value = .Value
     End With
End Sub

用于复制工作表的vba宏，然后将另一个工作表中的某些信息复制到复制的工作表中

1 个答案: