复制并粘贴到下一个空白单元格的宏 [英] Macro to copy and paste in next blank cell

问题描述

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（Cut）到sheet2（Past）

The above source code works to copy(cut) paste into same sheet. Now i need cut and paste into another sheet ie: Sheet1(Cut) to sheet2(Past)

谢谢

推荐答案

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

Below code will cut data from sheet1 to 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

这篇关于复制并粘贴到下一个空白单元格的宏的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！