小编And*_*rew的帖子

我想通过在以下情况下添加 MsgBox 来改进整个代码：

运行时错误“1004”：Range 类的 PasteSpecial 方法失败。

如果剪贴板为空并且我运行宏，则会导致此错误。任何建议？

Sub Test()
On Err.Number = 1004 GoTo ErrMsg
Dim Val As Variant
Sheets("Sheet 3").Select
Val = Range("A2").Value
Sheets("Sheet 1").Select
Call TextFromClipboard
Range("AY" & Val).Select
ActiveSheet.Paste
Sheets("Sheet 3").Select
ErrMsg:
MsgBox "Nothing to paste!", vbCritical, "Clipboard is empty!"
End Sub

原点