如何复制而不丢失信息？

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 的帮助下解决了问题，使用此 link and this link Excel VBA code to copy a specific string to clipboard 将信息复制到我的剪贴板，当我搜索问题时是打开 "File Explorer" 时发生的错误，我关闭了它并且有效。不过我已经不用这个功能了

如何复制而不丢失信息？

How to copy without losing information?

excel

vba

sendkeys