Excel複製/粘貼在同一張紙上

我想創建一個宏，它將複製最後一列數據，將該值粘貼到自身上，然後將公式粘貼到下一個空列中。Excel複製/粘貼在同一張紙上

我已經試過這

Sub copyformula() 
    Range("N3").End(xlToLeft).Copy 
    Range("N3").End(xlToLeft).Offset(1, 0).PasteSpecial xlPasteAll 
End Sub

，但它不工作，我說我是新和學習，我去。

來源

2014-03-30 user2327285

我是很新的，我已經試過，但它不工作。 – user2327285

請不要在評論中放入代碼。只需用它更新你的答案。 –

試試這個：

Range("N3").End(xlToLeft).Copy 
Range("N3").End(xlToLeft).Offset(1, 0).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ 
    SkipBlanks:=False, Transpose:=False

您可以通過使用宏錄製和分析所顯示的代碼學到很多東西。

來源

2014-03-30 17:33:50

也許：

Sub user() 
    ActiveSheet.UsedRange 
    Set r = ActiveSheet.UsedRange 
    Set r2 = r.Columns(r.Columns.Count + r.Column - 1) 
    r2.Copy r2.Offset(0, 1) 
    r2.Copy 
    r2.PasteSpecial (xlValues) 
End Sub

來源

2014-03-30 17:38:36

Excel複製/粘貼在同一張紙上

回答

相關問題