复制和粘贴宏

Question

需要有关Excel宏的帮助。我需要做一个宏，在其中我可以将公式复制并粘贴到同一行中。 我试图做一个宏，但是它粘贴在错误的位置。谁能帮忙！

例如；我想将公式粘贴到我键入的任何位置的右侧。例如，如果现在我在A7处键入内容，我将运行宏，然后将公式粘贴为B7中的值

当前使用的代码：

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+d
'
    ActiveCell.FormulaR1C1 = "=NOW()"
   ActiveCell.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Answer 1

尝试一下：

ActiveCell.Value=ActiveCell.Value