>>484
クリップボードにデータ取り込みたいならSendKeysよりも
DataObject使った方が楽だと思うけど・・・

Dim d As New DataObject
d.SetText Range("A1").Value
d.PutInClipboard


クリップボードとデータのやりとりをする
https://www.moug.net/tech/exvba/0150091.html