Excelで値のみコピーする

クリップボードとのデータのやり取りです。

Excelでコピペする際、[ctrl] + C で値のみコピーできるようにします。

ExcelをコピーしてExcel以外のテキストエディタ等に張り付ける際に便利です。

Sub 値のみコピー()
'
    Dim clipOjt As New DataObject

    '

    With clipOjt

        .SetText ActiveCell.Value '選択したセルの値をデータオブジェクトへ渡す

        .PutInClipboard 'データオブジェクトのデータをクリップボードに入れる

    End With

'

End Sub

上記のマクロを [ctrl] + C に登録します。

上記のマクロがコンパイルできない場合は、以下の記事を参照してください。

Excelでデフォルトを値のみ貼り付けにする

以上です。