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复制/粘贴在同一张纸上

回答

相关问题