2014-10-01 245 views
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(过去)宏复制并粘贴到下一个空白单元格中

由于

+1

'目的地:=表格(“Sheet2”)。范围(“C”和LR)'? – 2014-10-01 11:14:16

回答

0

下面代码将从Sheet 1中削减数据到Sheet

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 
+0

它的工作。谢谢sathish表(“sheet2”)应该添加在最大(20,.........有没有可能粘贴为空间值。我在输入区域使用一些公式,只是我想粘贴作为价值。 – 2014-10-02 06:17:27

相关问题