gui*_*wer 57

application.cutcopymode = false


Rob*_*rns 5

尝试将此代码作为示例。关键是“ Application.CutCopyMode = False

Sub Test()
    Range("A1").Copy
    MsgBox "View Marching Ants"
    Range("A2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub
Run Code Online (Sandbox Code Playgroud)