VBA クリップボード

DataObjectオブジェクトはMSFormsライブラリのメンバです。
 使用するには、「Microsoft Forms 2.0 Object Library」を参照設定します。
ただし、［参照設定］ダイアログボックスの一覧に、このライブラリは表示されません。
 ［参照設定］ダイアログボックスで参照設定する場合は、［参照］ボタンをクリックして、「C:\Windows\System32\FM20.DLL」または
「C:\Windows\SysWOW64\FM20.DLL」を選択します。
 （ライブラリのパスはOSによって異なります）

サンプル

Option Explicit

Sub Main()

Dim strWord As String
Dim i As Integer
    strWord = ""
    For i = 1 To 3
        strWord = strWord & Cells(i, 1) & vbNewLine
    Next i
   
'クリップボードにデータを送る
    With New MSForms.DataObject
        .SetText strWord
        .PutInClipboard
    End With
   
'クリップボードからデータを取得する
    With New MSForms.DataObject
        .GetFromClipboard
        MsgBox .GetText
    End With

End Sub