如何复制而不丢失信息？

Question

我正在尝试复制某个范围内的文本，但是如果有人按“ ESC”或其他任何键，此信息就会丢失。

我使用此宏进行复制：

Sub Copiar_Reposta()

With Application
    .ScreenUpdating = False
End With

Planilha1.Select
Range("A45").Select
Application.CutCopyMode = False
Application.Wait (Now() + TimeValue("00:00:01"))
Application.SendKeys "{F2}", True
Application.SendKeys "+{HOME}", True
Application.SendKeys "^C", True
Application.SendKeys "{ESC}", True

Planilha3.Select

With Application
    .ScreenUpdating = True
End With

End Sub

立即关闭“ NUM LOCK”，并尝试对其进行修复后，该宏也停止工作。

是否有一种方法可以从单元中复制信息而不会在以后丢失信息？ 或者，有没有办法修复突然停止工作的宏。

像这样复制：

Answer 1

仅将问题标记为已回答，我在@ Marcucciboy2的帮助下解决了问题，当我搜索问题时，使用此链接Text To Clipboard in VBA Windows 10 Issue和此链接Excel VBA code to copy a specific string to clipboard将信息复制到剪贴板中是当“文件资源管理器”打开，我关闭并且起作用时发生的错误。但是我不再使用此功能。