エクセルの表をコピーして、FreemindにTree形式で貼り付けるためのマクロを作成。

    
' サマリー:
' Excelの表データをFreemindの表形式に変換して貼り付けるためのマクロ
'
' 詳細:
' このマクロは、Excelの表データをコピーし、Freemindに表形式で貼り付けるためのものです。
' 各行と階層について、4つのスペースと改行を追加して整形しています。

Sub Excel_to_mm_01()
  'Excel から Freemind への変換

  ' row_index: 現在の行のインデックス
  Dim row_index As Integer
  ' SPACE4: 4つのスペースを追加するための定数
  Dim SPACE4 As String
  SPACE4 = ""

  ' END_RECORD: 処理する行の最大数を表す定数
  Dim END_RECORD As String
  END_RECORD = 10
  ' HIERARCHY_NUM: 階層の最大数を表す定数
  Dim HIERARCHY_NUM As Integer
  HIERARCHY_NUM = 5

  ' 次の行に進む
  For cell_index = 1 To END_RECORD
    ' 右に移動し、セルの値にスペース4を追加。さらに、末尾に改行を追加する。
    For row_index = 1 To HIERARCHY_NUM
      ' セルに4つのスペースを追加し、末尾に改行を入れる
      Cells(cell_index, row_index).Value = SPACE4 & Cells(cell_index, row_index) & Chr(10)
      ' 次の階層へ進むために、スペースを増やす
      SPACE4 = SPACE4 & " "
    Next row_index
    ' 次の行に進む前に、スペースをリセットする
    SPACE4 = ""

  Next cell_index

End Sub