クリップボードにコピーするだけのVBA

Excelで改行あるセルをコピーすると" "がついて嫌なので、VBA書いてボタン化することに。
意外に「コピーだけ」のスクリプトはなかったので、備忘録的に残す。(ほぼ他サイトの切り抜き)

※使用前に、Visual Basic→[ツール/参照設定]→[参照]→ファイル名「FM20.DLL」を開く。これがないとDataObjectが使えない。

Sub クリップボードにコピー()
    Dim buf As String, CB As New DataObject
    buf = Range("A1")       '任意のセル
    With CB
        .SetText buf        '変数のデータをDataObjectに格納
        .PutInClipboard     'DataObjectのデータをクリップボードに格納
    End With
End Sub