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

我试图从“Sheet1”复制一个范围并粘贴值到“Sheet2”中的下一个空行，而不是代码。我发现这个代码，但它只是copys和粘贴代码：VBA：将值复制并粘贴到其他工作表的下一个空行中

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

谁能帮助粘贴值，而不是代码？

来源

2014-09-10 user3049442

的可能重复[如何只值在Excel VBA中从一系列复制？]（http://stackoverflow.com/questions/24294923/how-to-copy-only-values-in-excel- vba-from-a-range） – 2014-09-10 09:40:14

不，不是因为它没有拼接放置在第一个空单元格 – user3049442 2014-09-10 10:16:18

这绝对是重复的。其他问题的答案适用于您的案例;只需将你的范围（'End（xlUp）'和所有爵士）替换为另一个问题的'dest'。 – 2014-09-10 10:23:14

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

来源

2014-09-10 09:35:45 cyboashu

如果我使用这个，我只是得到错误'这个操作需要合并的单元格大小相同'。第二条线的哪一部分正在考虑细胞的大小？ – user3049442 2014-09-10 09:49:34

我相信你需要首先应用格式。现在试试。 – cyboashu 2014-09-10 10:06:53

仍然发生同样的错误。它粘贴格式，但在第3行给出错误 – user3049442 2014-09-10 10:29:08

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

回答

相关问题