excelvbaで文字列をクリップボードにコピーしてから貼り付ける

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

ネタ元