Excelの表をMarkdownでのテーブルに変換するユーザー定義関数

Markdownとテーブル・表
表をMarkdownでのテーブルに変換するユーザー定義関数
注意点・コピペ後
1. 注意点
2. マクロでMarkdown変換をするには

Markdownとテーブル・表

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

サンプル: Markdownでのテーブル

| Header1 | Header2 | Header3 |
|---------|---------|---------|
| Row1Col1| Row1Col2| Row1Col3|
| Row2Col1| Row2Col2| Row2Col3|

上記のデータは以下の表を意味します。

Header1	Header2	Header3
Row1Col1	Row1Col2	Row1Col3
Row2Col1	Row2Col2	Row2Col3

この記事ではExcelの表を Markdownテーブルへ変換する「ユーザー定義関数」と「マクロ」をご紹介します。

表をMarkdownでのテーブルに変換するユーザー定義関数

ユーザー定義関数のコード

Function ConvertToMarkdown(rng As Range) As String
    Dim cell As Range
    Dim markdown As String
    Dim separator As String
    Dim columnCount As Integer
    Dim rowCount As Integer
    Dim i As Integer
    Dim j As Integer
    
    columnCount = rng.Columns.Count
    rowCount = rng.Rows.Count
    
    ' Create the header row
    For j = 1 To columnCount
        markdown = markdown & "|" & rng.Cells(1, j).text
    Next j
    markdown = markdown & "|" & vbCrLf
    
    ' Create the separator row
    separator = "|"
    For j = 1 To columnCount
        separator = separator & "---|"
    Next j
    markdown = markdown & separator & vbCrLf
    
    ' Create the data rows
    For i = 1 To rowCount
        For j = 1 To columnCount
            markdown = markdown & "|" & rng.Cells(i, j).text
        Next j
        markdown = markdown & "|" & vbCrLf
    Next i
    
    ConvertToMarkdown = markdown
End Function