0
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
上述源代码可将复制(剪切)粘贴到同一工作表中。 现在我需要剪切并粘贴到另一个片 即:工作表Sheet(剪切)到Sheet(过去)宏复制并粘贴到下一个空白单元格中
由于
'目的地:=表格(“Sheet2”)。范围(“C”和LR)'? – 2014-10-01 11:14:16