繁体   English   中英

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

[英]VBA: Copy and paste values in next empty row in other sheet

我正在尝试将“ Sheet1”和粘贴值(而不是代码)的范围复制到“ Sheet2”中的下一个空行。 我找到了以下代码,但它仅复制并粘贴了代码:

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

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

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

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM