Excelの表をMarkdownでのテーブルに変換してクリップボードへコピーするVBAマクロ

前回のまとめと概要
表をMarkdownでのテーブルに変換してクリップボードへコピーするVBAマクロ

前回のまとめと概要

前回の記事では「Excelの表をMarkdownでのテーブルに変換するユーザー定義関数」を紹介しました。

Markdownとテーブル・表Markdown（マークダウン）は、プレーンテキストで書かれたコンテンツを簡単に書式設定できる軽量のマークアップ言語です。主にWebコンテンツやドキュメントの作成に使用されます。サンプル: Markdownでの...

上記のページにあるユーザー定義関数を使う方法の欠点は、「成果物をnotepad(メモ帳)などへコピペすると上下に”が付く」というポイントです。

そこでこの記事では、「表をMarkdownでのテーブルに変換してクリップボードへコピーするVBAマクロ」をご紹介します。

表をMarkdownでのテーブルに変換してクリップボードへコピーするVBAマクロ

マクロのコード

Sub CopyTableAsMarkdown()
    Dim rng As Range
    Dim data() As Variant
    Dim row As Long, col As Long
    Dim markdown As String
    Dim separator As String
    Dim objHTML As Object

    ' 選択された範囲を取得
    Set rng = Selection
    data = rng.Value
    
    ' ヘッダー行の作成
    For col = 1 To UBound(data, 2)
        markdown = markdown & "|" & data(1, col)
    Next col
    markdown = markdown & "|" & vbCrLf
    
    ' 区切り行の作成
    For col = 1 To UBound(data, 2)
        separator = separator & "|---"
    Next col
    separator = separator & "|" & vbCrLf
    markdown = markdown & separator
    
    ' データ行の作成
    For row = 2 To UBound(data, 1)
        For col = 1 To UBound(data, 2)
            markdown = markdown & "|" & data(row, col)
        Next col
        markdown = markdown & "|" & vbCrLf
    Next row
    
    ' クリップボードにコピー
    Set objHTML = CreateObject("htmlfile")
    With objHTML.ParentWindow.ClipboardData
        .SetData "Text", markdown
    End With
End Sub