excel - 单独工作表上的按钮宏

Question

我在 Sheet3 中有一个按钮，但我希​​望它从 Sheet1 运行以下宏。运行以下字符串时，我继续收到错误。

Public Sub Blue()

    If Now() > Range("Sheet1!AL2") Then
        Range("Sheet1!AC2:AG2").Select
        Selection.Cut
        Range("Sheet1!AC15").Select
        Sheet1!.Paste
        Range("Sheet1!X2:AB2").Select
        Selection.Cut
        Range("Sheet1!AC2").Select
        Sheet1!.Paste
        Range("Sheet1!AC15:AG15").Select
        Selection.Cut
        Range("Sheet1!X2").Select
        Sheet1!.Paste
        Range("Sheet1!AL2").Select
        Selection.Copy
        Range("Sheet1!AK2").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Else
    End If

End Sub

Answer 1

避免使用选择剪切和粘贴

而是试试这个

Range("Sheet1!AC15").value = Range("Sheet1!AC2:AG2").value