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

【问题标题】：Excel copy/paste on same sheetExcel复制/粘贴在同一张纸上
【发布时间】：2014-03-31 01:41:04
【问题描述】：

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

我试过了

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

但它不起作用，正如我所说，我是新手，边走边学。

【问题讨论】：

我是新人，我试过了，但是没用。
请不要将代码放入 cmets。只需用它更新您的答案。

标签： excel vba

【解决方案1】：

试试这个：

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

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

【讨论】：

【解决方案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

【讨论】：