复制并粘贴到下一个空白单元格的宏

【问题标题】：Macro to copy and paste in next blank cell复制并粘贴到下一个空白单元格的宏
【发布时间】：2014-10-01 07:37:54
【问题描述】：

Sub test1()
Dim LR As Long
LR = WorksheetFunction.Max(20, Range("C" & Rows.Count).End(xlUp).Row + 1)
Range("C3").Resize(, 3).Cut Destination:=Range("C" & LR)
End Sub

上面的源代码可以复制（剪切）粘贴到同一张表中。现在我需要剪切并粘贴到另一张纸上即：Sheet1（剪切）到sheet2（过去）

谢谢

【问题讨论】：

Destination:=Sheets("Sheet2").Range("C" & LR)?

标签： excel copy-paste vba

【解决方案1】：

下面的代码会将数据从 sheet1 剪切到 sheet2

Sub test1()
Dim LR As Long
LR = WorksheetFunction.Max(20, Range("C" & Rows.Count).End(xlUp).Row + 1)
Sheets("Sheet1").Range("C3").Resize(, 3).Cut 
Sheets("Sheet2").Range("C" & LR).PasteSpecial xlPasteValues
End Sub

【讨论】：

它的工作。谢谢 sathish sheet("sheet2") 应该添加到 max(20, ......... 有没有可能粘贴为空间值。我在输入区域中使用了一些公式。只是我想粘贴作为价值。