发布网友 发布时间:2022-05-03 07:32
共1个回答
热心网友 时间:2023-10-14 10:58
Sub Demo()
Dim RR
Set RR = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
S = Range("B1")
RR.SetText S
RR.PutInClipboard
End Sub
热心网友 时间:2023-10-14 10:58
Sub Demo()
Dim RR
Set RR = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
S = Range("B1")
RR.SetText S
RR.PutInClipboard
End Sub