Question

我试图复制＆＃34; Sheet1＆＃34;并将值（而不是代码）粘贴到＆＃34; Sheet2＆＃34;中的下一个空行。我找到了这段代码，但它只复制和粘贴代码：

Sheets("Sheet1").Range("G32:I54").Copy Sheets("Sheet2").Range("A60000").End(xlUp).Offset(2, 0) 'Select Case Sheets("Sheet1").Range("A1") = ""

任何人都可以帮助粘贴价值而不是代码吗？

Answer 1

Sheets("Sheet1").Range("G32:I54").Copy 
Sheets("Sheet2").Range("A60000").End(xlUp).Offset(2, 0).pastespecial paste:=xlPasteFormats
Sheets("Sheet2").Range("A60000").End(xlUp).Offset(2, 0).pastespecial paste:=xlPasteValues
application.cutcopymode=false

VBA：复制并粘贴其他工作表中下一个空行的值

1 个答案: