Question

我想创建一个宏，它将复制最后一列数据，将该值粘贴到自身上，然后将公式粘贴到下一个空列中。

我试过这个

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

但它不起作用，因为我说我是新人并且在我学习的过程中学习。

Answer 1

试试这个：

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

您可以通过使用宏录制器并检查生成的代码来学习很多东西。

Answer 2

也许：

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

Excel复制/粘贴在同一张纸上

2 个答案: