尝试将此代码作为示例。关键是“ 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)
| 归档时间: |
|
| 查看次数: |
66561 次 |
| 最近记录: |