DoEventsないと コケることある
Dim buf As String, buf2 As String, CB As New DataObject
buf = "tanaka"
With CB
.SetText buf ''変数のデータをDataObjectに格納する
DoEvents
.PutInClipboard ''DataObjectのデータをクリップボードに格納する
DoEvents
End With
'コピーしたセルをセルA2へ貼り付けます
Range("A2").PasteSpecial
ネタ元
