我不想诉诸SendKeys“{ESC}”
答案 0 :(得分:50)
application.cutcopymode = false
答案 1 :(得分:4)
尝试使用此代码作为示例。关键行是' Application.CutCopyMode = False '
Sub Test()
Range("A1").Copy
MsgBox "View Marching Ants"
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub