Excel VBA - 区切り文字で文字列が連結されたセルからグループ単位別に行分割処理メモ

Option Explicit

Sub SplitRowsCells1()
  ' 地方区分を基準としてグループ化したシート「地方区分グループ化文字列連結」をシート「地方区分都道府県県庁所在地リスト」に戻す処理
  ' 1行に文字列を連結した都道府県・県庁所在地の文字列を地方区分別に行分割

  ' 実行速度計測開始
  Dim starttime As Double
  starttime = Timer

' ----------

  ' カウンタ用変数（一見見分けにくい文字同士を組み合わせない形、i と j、m と n、o（オー） と 0（ゼロ））
  Dim i As Long, k As Long, m As Long, p As Long

' ----------

  ' シート格納用オブジェクト変数
  Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet

  ' オブジェクト変数にシートセット
  Set ws1 = ThisWorkbook.Worksheets("地方区分グループ化文字列連結") ' セル分割対象シートをオブジェクト変数にセット
  Set ws2 = ThisWorkbook.Worksheets("地方区分別行分割") ' セル分割後データ貼り付け先シートをオブジェクト変数にセット
'  Set ws3 = ThisWorkbook.Worksheets("temp") ' 一致したデータ出力先テスト用シート

' ----------

  ' 最終行取得用変数
  Dim maxrow1 As Long

  ' シート最終行取得して変数に格納
  maxrow1 = ws1.Cells(Rows.Count, "A").End(xlUp).Row

  ' 最終列取得用変数
  Dim maxcol1 As Long

  ' シートの最終列取得して変数に格納
  maxcol1 = ws1.Cells(1, Columns.Count).End(xlToLeft).Column

' ----------

  ' シートの指定したセル範囲を配列として格納する動的配列
  Dim data1() As Variant

  ' シートの指定した範囲内セルを配列として動的配列に格納
  data1 = ws1.Range(ws1.Cells(2, 1), ws1.Cells(maxrow1, maxcol1)).Value

  ' Range オブジェクトを受け取り、2次元配列で返す自作関数 GetArrFromRange
'  data1 = GetArrFromRange.GetArrFromRange(ws1.Range(ws1.Cells(2, 1), ws1.Cells(maxrow1, maxcol1)))

' ----------

  ' 都道府県列と県庁所在地列、両列の区切り文字数チェック処理（区切り文字数が一致しない場合処理終了）

  ' 区切り文字数カウント用配列宣言
  Dim sumdelimiter() As Variant ' 区切り文字数合計用配列
  Dim cntdelimiter() As Variant ' 1セルに含まれる区切り文字数格納用配列

  ' 区切り文字数合計を格納する都道府県・県庁所在地列の動的配列を作成
  ReDim sumdelimiter(1) ' sumdelimiter(0) - 都道府県列区切り文字数合計、sumdelimiter(1) - 県庁所在地列区切り文字数合計
  For i = LBound(sumdelimiter) To UBound(sumdelimiter)
    sumdelimiter(i) = 0 ' 初期値 0 設定
  Next i

  ' 1セルに含まれる区切り文字数を格納する都道府県・県庁所在地列の動的配列を作成
  ReDim cntdelimiter(1) ' sumdelimiter(0) - 1セルに含まれる都道府県列区切り文字数格納、sumdelimiter(1) - 1セルに含まれる県庁所在地列区切り文字数格納
  For i = LBound(cntdelimiter) To UBound(cntdelimiter)
    cntdelimiter(i) = 0 ' 初期値 0 設定
  Next i

  ' Array 関数を使って配列の各要素に初期値 0 設定（動的配列（ReDim）や For 文を使わない場合）
'  sumdelimiter = Array(0, 0)
'  cntdelimiter = Array(0, 0)

  ' Select Case ステートメント用変数宣言
  Dim val1 As Long
  val1 = 1 ' Select Case ステートメント Case 1 ～ Case 4 まで処理を用意、1 ～ 4 のいずれかの値を指定

  ' 変数 val1 の値に応じて Case 1 ～ Case 4 のいずれかの処理を実行
  Select Case val1

  Case 1 ' Len 関数と Len 関数＋ Replace 関数を使って文字数の差分から区切り文字数を計算・合計

    For i = LBound(data1, 1) To UBound(data1, 1) ' 1次元最大要素までループ処理
      For k = LBound(data1, 2) + 1 To UBound(data1, 2) ' 2列目から 2次元最大要素までループ処理
        ' 配列 data1 の i 行 k 列目の文字数を Len 関数でカウント（区切り文字（vbLf）削除前文字数）
        ' Replace 関数で配列 data1 の i 行 k 列目の区切り文字（vbLf）を "" で削除して Len 関数でカウント（区切り文字（vbLf）削除後文字数）
        ' 区切り文字（vbLf）削除前文字数から区切り文字（vbLf）削除後文字数を差し引き区切り文字数をカウントして、配列 cntdelimiter(k - 2) に代入
        cntdelimiter(k - 2) = Len(data1(i, k)) - Len(Replace(data1(i, k), vbLf, ""))
        ' 配列 sumdelimiter(k - 2) で区切り文字数 cntdelimiter(k - 2) を合計
        sumdelimiter(k - 2) = sumdelimiter(k - 2) + cntdelimiter(k - 2)
      Next k

      ' cntdelimiter(0)（都道府県列）と cntdelimiter(1)（県庁所在地列）の値（区切り文字数）が一致しない場合 Sub プロシージャー終了
      If cntdelimiter(0) <> cntdelimiter(1) Then
        MsgBox "地方区分「" & data1(i, 1) & "」の区切り文字数が一致しないため処理を終了します" & vbCrLf & _
        "都道府県列区切り文字数「" & cntdelimiter(0) & "」、県庁所在地列区切り文字数「" & cntdelimiter(1) & "」"
        Exit Sub
      End If

    Next i

  Case 2 ' Case 1 の 2行の区切り文字数計算式と合計式を 1行にまとめ

    For i = LBound(data1, 1) To UBound(data1, 1) ' 1次元最大要素までループ処理
      For k = LBound(data1, 2) + 1 To UBound(data1, 2) ' 2列目から 2次元最大要素までループ処理
        ' cntdelimiter(k - 2) = Len(data1(i, k)) - Len(Replace(data1(i, k), vbLf, ""))
        ' sumdelimiter(k - 2) = sumdelimiter(k - 2) + cntdelimiter(k - 2)
        ' 2行の計算式を 1行にまとめ
        sumdelimiter(k - 2) = sumdelimiter(k - 2) + (Len(data1(i, k)) - Len(Replace(data1(i, k), vbLf, "")))
      Next k
    Next i

  Case 3 ' Split 関数で区切り文字で配列に格納された文字列を分割、Ubound 関数で要素番号の最大値を返して区切り文字数を計算・合計

    For i = LBound(data1, 1) To UBound(data1, 1) ' 1次元最大要素までループ処理
      For k = LBound(data1, 2) + 1 To UBound(data1, 2) ' 2列目から 2次元最大要素までループ処理
        If UBound(Split(data1(i, k), vbLf)) = -1 Then ' 配列 data1 の i 行 k 列目のデータが Empty で Ubound・Split 関数で -1 を返す場合
          cntdelimiter(k - 2) = 0 ' 区切り文字がないため区切り文字数格納用配列 cntdelimiter(k - 2) に 0 を代入
        ElseIf UBound(Split(data1(i, k), vbLf)) <> -1 Then ' 配列 data1 の i 行 k 列目のデータが Empty ではない場合
          cntdelimiter(k - 2) = UBound(Split(data1(i, k), vbLf)) ' Ubound・Split 関数結果を配列 cntdelimiter(k - 2)に代入
        End If
        sumdelimiter(k - 2) = sumdelimiter(k - 2) + cntdelimiter(k - 2) ' 区切り文字数格納用配列 cntdelimiter(k - 2) を区切り文字数合計用配列 sumdelimiter(k - 2)に加算して格納
      Next k

      ' cntdelimiter(0)（都道府県列）と cntdelimiter(1)（県庁所在地列）の値（区切り文字数）が一致しない場合 Sub プロシージャー終了
      If cntdelimiter(0) <> cntdelimiter(1) Then
        MsgBox "地方区分「" & data1(i, 1) & "」の区切り文字数が一致しないため処理を終了します" & vbCrLf & _
        "都道府県列区切り文字数「" & cntdelimiter(0) & "」、県庁所在地列区切り文字数「" & cntdelimiter(1) & "」"
        Exit Sub
      End If

    Next i

  Case 4 ' Case 3 とほぼ同じ処理内容で区切り文字数格納用配列 cntdelimiter(k - 2) を使わずに、Ubound・Split 関数の結果と合計用配列 sumdelimiter(k - 2) を使って計算・合計

    For i = LBound(data1, 1) To UBound(data1, 1) ' 1次元最大要素までループ処理
      For k = LBound(data1, 2) + 1 To UBound(data1, 2) ' 2列目から 2次元最大要素までループ処理
        If UBound(Split(data1(i, k), vbLf)) = -1 Then ' 配列 data1 の i 行 k 列目のデータが Empty で Ubound・Split 関数で -1 を返す場合
          sumdelimiter(k - 2) = sumdelimiter(k - 2) ' 区切り文字がないため合計用配列 sumdelimiter(k - 2) に sumdelimiter(k - 2) を代入（変更なし）
        ElseIf UBound(Split(data1(i, k), vbLf)) <> -1 Then ' 配列 data1 の i 行 k 列目のデータが Empty ではない場合
          sumdelimiter(k - 2) = sumdelimiter(k - 2) + UBound(Split(data1(i, k), vbLf)) ' 区切り文字数合計用配列 sumdelimiter(k - 2) と Ubound・Split 関数の結果を使って計算・合計
        End If
      Next k
    Next i

  Case Else ' エラー処理（Sub プロシージャー終了）
  
    MsgBox "変数 val1 に指定された値（1～4）以外の " & val1 & " が代入されているため処理を終了します"
    Exit Sub

  End Select

  ' 区切り文字数合計用配列 sumdelimiter(0)（都道府県列）と sumdelimiter(1)（県庁所在地列）の値をイミディエイトウィンドウに表示（デバッグ用）
  Debug.Print sumdelimiter(0) & "," & sumdelimiter(1)

  ' sumdelimiter(0)（都道府県列）と sumdelimiter(1)（県庁所在地列）の値（区切り文字数）が一致しない場合 Sub プロシージャー終了
  If sumdelimiter(0) <> sumdelimiter(1) Then
    MsgBox "区切り文字数合計が一致しないため処理を終了します" & vbCrLf & _
    "都道府県列区切り文字数合計「" & sumdelimiter(0) & "」、県庁所在地列区切り文字数合計「" & sumdelimiter(1) & "」"
    Exit Sub
  End If

' ----------

  ' 都道府県・県庁所在地列カウント処理（区切り文字数チェック処理をクリアできれば都道府県・県庁所在地ともに必ず 47 になる）
  ' ここの処理結果で配列 sumstring()に格納した値（47）を使って、次に区切り文字から分割した地方区分別の都道府県・県庁所在地を格納する配列を作成

  ' 都道府県・県庁所在地列カウント用配列宣言
  Dim sumstring() As Variant ' 都道府県・県庁所在地数合計用配列
  Dim cntstring() As Variant ' 1セルに含まれる都道府県・県庁所在地数格納用配列

  ' 地名数合計を格納する都道府県・県庁所在地列の動的配列を作成
  ReDim sumstring(1) ' sumstring(0) - 都道府県数合計、sumstring(1) - 県庁所在地数合計
  For i = LBound(sumstring) To UBound(sumstring)
    sumstring(i) = 0 ' 初期値 0 設定
  Next i

  ' 1セルに含まれる地名数を格納する都道府県・県庁所在地列の動的配列を作成
  ReDim cntstring(1) ' cntstring(0) - 1セルに含まれる都道府県数格納、cntstring(1) - 1セルに含まれる県庁所在地数格納
  For i = LBound(cntstring) To UBound(cntstring)
    cntstring(i) = 0 ' 初期値 0 設定
  Next i

  ' Array 関数を使って配列の各要素に初期値 0 設定（動的配列（ReDim）や For 文を使わない）
'  sumstring = Array(0, 0)
'  cntstring = Array(0, 0)

  ' Select Case ステートメント用変数宣言
  Dim val2 As Long
  val2 = 1 ' Select Case ステートメント Case 1 と Case 2 の処理を用意、1～2 のいずれかの値を指定

  ' 変数 val2 の値に応じて Case 1 か Case 2 のいずれかの処理を実行
  Select Case val2

  Case 1 ' Split 関数で区切り文字で配列に格納された文字列を分割、Ubound 関数で要素番号の最大値に +1 して都道府県・県庁所在地数を計算・合計

    For i = LBound(data1, 1) To UBound(data1, 1) ' 1次元最大要素までループ処理
      For k = LBound(data1, 2) + 1 To UBound(data1, 2) ' 2列目から 2次元最大要素までループ処理
        If UBound(Split(data1(i, k), vbLf)) = -1 Then ' Ubound・Split 関数結果で区切り文字がない場合 -1 を返す時の処理
          cntstring(k - 2) = 1 ' 都道府県・県庁所在地数格納用配列 cntstring(k - 2) に 1 を代入（全国都道府県・県庁所在地数帳尻合わせのため）
        ElseIf UBound(Split(data1(i, k), vbLf)) <> -1 Then ' 配列 data1 の i 行 k 列目のデータが Empty ではない場合
          cntstring(k - 2) = UBound(Split(data1(i, k), vbLf)) + 1 ' Ubound・Split 関数結果を配列 cntstring(k - 2)に代入
        End If
        sumstring(k - 2) = sumstring(k - 2) + cntstring(k - 2) ' 都道府県・県庁所在地数格納用配列 cntstring(k - 2) を都道府県・県庁所在地数合計用配列 sumstring(k - 2)に加算して格納
      Next k
    Next i

  Case 2 ' Case 1 の処理内容で都道府県・県庁所在地数格納用配列 cntstring(k - 2) を使わずに、Ubound・Split 関数の結果と合計用配列 sumstring(k - 2) を使って計算・合計

    For i = LBound(data1, 1) To UBound(data1, 1) ' 1次元最大要素までループ処理
      For k = LBound(data1, 2) + 1 To UBound(data1, 2) ' 2列目から 2次元最大要素までループ処理
        If UBound(Split(data1(i, k), vbLf)) = -1 Then ' 配列 data1 の i 行 k 列目のデータが Empty で Ubound・Split 関数で -1 を返す場合
          sumstring(k - 2) = sumstring(k - 2) + 1 ' 都道府県・県庁所在地数合計用配列 sumstring(k - 2) に 1 を足して sumstring(k - 2) に代入（全国都道府県・県庁所在地数帳尻合わせのため）
        ElseIf UBound(Split(data1(i, k), vbLf)) <> -1 Then ' 配列 data1 の i 行 k 列目のデータが Empty ではない場合
          sumstring(k - 2) = sumstring(k - 2) + UBound(Split(data1(i, k), vbLf)) + 1 ' 都道府県・県庁所在地数合計用配列 sumstring(k - 2) と Ubound・Split 関数の結果を使って計算・合計
        End If
      Next k
    Next i

  Case Else ' エラー処理（Sub プロシージャー終了）
  
    MsgBox "変数 val2 に指定された値（1～2）以外の " & val2 & " が代入されているため処理を終了します"
    Exit Sub

  End Select

  ' 都道府県・県庁所在地数合計用配列 sumstring(0)（都道府県列）と sumstring(1)（県庁所在地列）の値をイミディエイトウィンドウに表示（デバッグ用）
  Debug.Print sumstring(0) & "," & sumstring(1)

' ----------

  ' シートの指定したセル範囲を配列として格納する動的配列
  Dim data2() As Variant

  ' シートの指定した範囲内セルを配列として動的配列に格納
  ' 終点セルの行は都道府県・県庁所在地数合計用配列 sumstring(0) または sumstring(1) に + 1 で調整（どちらも値は 47）
  data2 = ws1.Range(ws1.Cells(2, LBound(data1, 1)), ws1.Cells(sumstring(0) + 1, UBound(data1, 2))).Value
'  data2 = ws1.Range(ws1.Cells(2, LBound(data1, 1)), ws1.Cells(sumstring(1) + 1, UBound(data1, 2))).Value

  ' Range オブジェクトを受け取り、2次元配列で返す自作関数 GetArrFromRange
'  data2 = GetArrFromRange.GetArrFromRange(ws1.Range(ws1.Cells(2, LBound(data1, 1)), ws1.Cells(sumstring(0) + 1, UBound(data1, 1))))
'  data2 = GetArrFromRange.GetArrFromRange(ws1.Range(ws1.Cells(2, LBound(data1, 2)), ws1.Cells(sumstring(1) + 1, UBound(data1, 2))))

  ' 地方区分・都道府県・県庁所在地格納用 2次元配列の最大要素まで Empty で初期化（繰り返し（やり直し）処理に対応）
  For i = LBound(data2, 1) To UBound(data2, 1) ' 1次元最大要素までループ処理
    For k = LBound(data2, 2) To UBound(data2, 2) ' 2次元最大要素までループ処理
      data2(i, k) = Empty ' 配列に Empty を代入して初期化
    Next k
'    data2(i, 1) = Empty ' for 文を使わない場合の書き方
'    data2(i, 2) = Empty ' for 文を使わない場合の書き方
'    data2(i, 3) = Empty ' for 文を使わない場合の書き方
  Next i

  ' Redim ステートメントを使った 2次元配列の最大要素までの初期化
'  ReDim data2(1 To UBound(data2, 1), 1 To UBound(data2, 2))

' ----------

  ' 都道府県・県庁所在地列の区切り文字間にある各地名を順番に分割して抽出、地方区分別に配列の各行列に代入（区切り文字で連結された文字列を地方区分別に分割）

  Dim arrstring As String ' 区切り文字位置特定用文字列型変数宣言
  Dim num() As Variant ' 区切り文字位置の値格納用動的配列宣言、Select Case ステートメント Case 2 と Case 3 で使用

  ' Select Case ステートメント用変数宣言
  Dim val3 As Long
  val3 = 1 ' Select Case ステートメント Case 1 ～ Case 4 の処理を用意、1 ～ 4 のいずれかの値を指定

  ' 変数 val3 の値に応じて Case 1 ～ Case 4 のいずれかの処理を実行
  Select Case val3

  Case 1 ' 変数 num1 ～ num4 に区切り文字位置の値を代入して InStr・Left（または Mid）関数を使って区切り文字位置を特定、区切り文字間にある文字列を配列に代入

    Dim num1 As Long, num2 As Long, num3 As Long, num4 As Long ' 区切り文字位置の値格納用変数宣言

    ' 区切り文字位置の値格納用変数を 0 で初期化
    num1 = 0 ' 都道府県列の各セル区切り文字がある最初の文字位置格納用変数（複数の区切り文字がある場合、num1 の文字位置から次の区切り文字がある文字位置（変数 num3）を格納して更新）
    num2 = 0 ' 県庁所在地列の各セル区切り文字がある最初の文字位置格納用変数（複数の区切り文字がある場合、num2 の文字位置から次の区切り文字がある文字位置（変数 num4）を格納して更新）
    num3 = 0 ' 都道府県列の区切り文字位置を格納した変数 num1 を基準にして、次の区切り文字がある位置格納用変数
    num4 = 0 ' 県庁所在地列の区切り文字位置を格納した変数 num3 を基準にして、次の区切り文字がある位置格納用変数

    ' カウンタ用変数 p を使って配列 data2 の p 行に（区切り文字間にある）都道府県・県庁所在地文字列を代入
    p = 1 ' 初期値として 1（行目）を設定、各 If 文の条件式で処理後、最後に p = p + 1 でインクリメントして次の行に指定

    For i = LBound(data1, 1) To UBound(data1, 1) ' 1次元最大要素までループ処理
      ' 配列 data1 の i 行 2列目または 3列目のデータを文字列型変数 arrstring に代入
      ' この後の If・For 文で文字列型変数 arrstring に対して LBound・UBound・Split 関数を使い、区切り文字数を計算・カウント、区切り文字数に応じた処理を実行
      ' 区切り文字数取得が目的のため data1(i, 2) または data1(i, 3) のどちらかだけでよい
      arrstring = data1(i, 2)
'      arrstring = data1(i, 3)

      ' 文字列型変数 arrstring に区切り文字がない場合は Ubound・Split 関数で 0 を返す、または Empty なら Ubound・Split 関数で -1 を返す場合の処理
      If UBound(Split(arrstring, vbLf)) = 0 Or UBound(Split(arrstring, vbLf)) = -1 Then
        For k = LBound(data1, 2) To UBound(data1, 2) ' 2次元最大要素までループ処理
          data2(p, k) = data1(i, k) ' 配列 data1 の i 行 k 列目のデータを、配列 data2 の p 行 k 列目に代入（区切り文字間の文字抽出処理不要）
        Next k
'        data2(p, 1) = data1(i, 1) ' for 文を使わない場合の書き方
'        data2(p, 2) = data1(i, 2) ' for 文を使わない場合の書き方
'        data2(p, 3) = data1(i, 3) ' for 文を使わない場合の書き方

        p = p + 1 ' 配列 data2 の p 行をインクリメント（+1）して次の行に指定
      End If

      ' 文字列型変数 arrstring に区切り文字がある場合の処理
      If UBound(Split(arrstring, vbLf)) > 0 Then
        ' Split 関数を使って区切り文字（vbLf）で文字列型変数 arrstring に格納された文字列を分割、Lbound・Ubound 関数で要素番号の最小値（必ず 0）と最大値を返してそれぞれ +1 を計算
        ' 区切り文字間の文字列を抽出するため、For 文で最小値（必ず 1）と最大値をカウンタ用変数 m に代入してループ処理
        For m = LBound(Split(arrstring, vbLf)) + 1 To UBound(Split(arrstring, vbLf)) + 1
          ' For 文のカウンタ用変数 m が初期値の場合（Split 関数を使って区切り文字（vbLf）で文字列型変数 arrstring に格納された文字列を分割後、Lbound 関数で要素番号の最小値（必ず 0）+1 の場合）
          ' 区切り文字がある場合、この処理は必ず最初に通る
          If m = LBound(Split(arrstring, vbLf)) + 1 Then
            num1 = InStr(m, data1(i, 2), vbLf) ' 配列 data1 の i 行 2列目（都道府県列）データを、Instr 関数で m（= 1）文字目から区切り文字（vbLf）がある最初の位置の値を変数 num1 に格納
            num2 = InStr(m, data1(i, 3), vbLf) ' 配列 data1 の i 行 3列目（県庁所在地列）データを、Instr 関数で m（= 1）文字目から区切り文字（vbLf）がある最初の位置の値を変数 num2 に格納

            data2(p, 1) = data1(i, 1) ' 配列 data1 の i 行 1列目（地方区分）のデータを、配列 data2 の p 行 1列目に格納
            data2(p, 2) = Left(data1(i, 2), num1 - 1) ' 配列 data1 の i 行 2列目（都道府県）のデータを Left 関数で、最初の区切り文字位置のひとつ前（num1 - 1）までの文字列を取得、配列 data2 の p 行 2列目に格納
            data2(p, 3) = Left(data1(i, 3), num2 - 1) ' 配列 data1 の i 行 3列目（県庁所在地）のデータを Left 関数で、最初の区切り文字位置のひとつ前（num2 - 1）までの文字列を取得、配列 data2 の p 行 3列目に格納
'            data2(p, 2) = Mid(data1(i, 2), m, num1 - 1) ' 配列 data1 の i 行 2列目（都道府県）のデータを Mid 関数で、変数 m 文字目から最初の区切り文字位置のひとつ前（num1 - 1）までの文字列を取得、配列 data2 の p 行 2列目に格納
'            data2(p, 3) = Mid(data1(i, 3), m, num2 - 1) ' 配列 data1 の i 行 3列目（県庁所在地）のデータを Mid 関数で、変数 m 文字目から最初の区切り文字位置のひとつ前（num2 - 1）までの文字列を取得、配列 data2 の p 行 3列目に格納

            p = p + 1 ' 配列 data2 の p 行をインクリメント（+1）して次の行に指定
          End If

          ' for 文のカウンタ用変数 m が初期値以外かつ最終値以外の場合（Split 関数を使って区切り文字（vbLf）で文字列型変数 arrstring に格納された文字列を分割後、Lbound 関数で要素番号の最小値（必ず 0）+1 以外かつ最大値 +1 以外の場合）
          ' 例としてカウンタ用変数 m が 1 ～ 4 場合 2 と 3 が条件に合致、変数 m が 1 ～ 3 の場合 2 が条件合致、変数 m が 1 ～ 2 の場合はどちらも初期値（要素番号最小値 +1）と最終値（要素番号最大値 +1）のため条件に合致しない
          If m <> LBound(Split(arrstring, vbLf)) + 1 And m <> UBound(Split(arrstring, vbLf)) + 1 Then
            num3 = InStr(num1 + 1, data1(i, 2), vbLf) ' 配列 data1 の i 行 2列目（都道府県列）データを Instr 関数で、変数 num1 に格納されている区切り文字位置の値の次の位置（num1 + 1）から次の区切り文字（vbLf）がある位置の値を変数 num3 に格納
            num4 = InStr(num2 + 1, data1(i, 3), vbLf) ' 配列 data1 の i 行 2列目（県庁所在地）データを Instr 関数で、変数 num1 に格納されている区切り文字位置の値の次の位置（num2 + 1）から次の区切り文字（vbLf）がある位置の値を変数 num4 に格納

            data2(p, 1) = data1(i, 1) ' 配列 data1 の i 行 1列目（地方区分）のデータを、配列 data2 の p 行 1列目に格納
            data2(p, 2) = Mid(data1(i, 2), num1 + 1, num3 - num1 - 1) ' 配列 data1 の i 行 2列目（都道府県）のデータを Mid 関数で、変数 num1 に格納されている区切り文字位置の次の位置（num1 + 1）から次の区切り文字位置のひとつ前までの文字数（num3 - num1 - 1）を指定して文字列を取得、配列 data2 の p 行 2列目に格納
            data2(p, 3) = Mid(data1(i, 3), num2 + 1, num4 - num2 - 1) ' 配列 data1 の i 行 3列目（県庁所在地）のデータを Mid 関数で、変数 num2 に格納されている区切り文字位置の次の位置（num2 + 1）から次の区切り文字位置のひとつ前までの文字数（num4 - num2 - 1）を指定して文字列を取得、配列 data2 の p 行 3列目に格納

            num1 = num3 ' 配列 data1 の i 行 2列目（都道府県）の区切り文字開始位置の値（num1）を、次の区切り文字位置の値（num3）に更新（複数の区切り文字がある場合の繰り返し処理対応）
            num2 = num4 ' 配列 data1 の i 行 3列目（県庁所在地）の区切り文字開始位置の値（num2）を、次の区切り文字位置の値（num4）に更新（複数の区切り文字がある場合の繰り返し処理対応）

            p = p + 1 ' 配列 data2 の p 行をインクリメント（+1）して次の行に指定
          End If

          ' For 文のカウンタ用変数 m が最終値の場合（Split 関数を使って区切り文字（vbLf）で文字列型変数 arrstring に格納された文字列を分割後、Lbound 関数で要素番号の最大値 +1 の場合）
          ' 例としてカウンタ用変数 m が 1 ～ 3 場合 3 が条件に合致、変数 m が 1 ～ 2 の場合 2 が条件合致
          ' 区切り文字がある場合、この処理は必ず最後に通る
          If m = UBound(Split(arrstring, vbLf)) + 1 Then
            data2(p, 1) = data1(i, 1) ' 配列 data1 の i 行 1列目（地方区分）のデータを、配列 data2 の p 行 1列目に格納
            data2(p, 2) = Mid(data1(i, 2), num1 + 1) ' 配列 data1 の i 行 2列目（都道府県）のデータを Mid 関数で、変数 num1 に格納されている最後の区切り文字位置の次の位置（num1 + 1）からデータ終端まで文字列を取得、配列 data2 の p 行 2列目に格納
            data2(p, 3) = Mid(data1(i, 3), num2 + 1) ' 配列 data1 の i 行 3列目（県庁所在地）のデータを Mid 関数で、変数 num2 に格納されている最後の区切り文字位置の次の位置（num2 + 1）からデータ終端まで文字列を取得、配列 data2 の p 行 3列目に格納

            p = p + 1 ' 配列 data2 の p 行をインクリメント（+1）して次の行に指定
          End If
        Next m

        ' カウンタ用変数 i をインクリメントして配列 data1(i, 1)の次の地方区分行に進む前に、区切り文字位置の値格納用変数すべてを 0 で初期化
        num1 = 0
        num2 = 0
        num3 = 0
        num4 = 0

      End If

    Next i

  Case 2 ' Case 1 と同じ処理内容、変更点は区切り文字位置の値格納用変数 num1 ～ num4 を使わず、代わりに区切り文字位置の値格納用動的配列 num() を使用

    ' 区切り文字位置の値格納用動的配列 num() を定義して初期値設定
    ReDim num(3) ' 区切り文字位置の値格納用変数 num1 ～ num4 の個数分（全部で 4つ）要素数を定義
    For i = LBound(num) To UBound(num) ' 動的配列の最大要素までループ処理
      num(i) = 0 ' 動的配列 num の i 番目に 0 を設定
    Next i
'    num = Array(0, 0, 0, 0) ' 動的配列と for 文を使わない場合の書き方

    p = 1

    For i = LBound(data1, 1) To UBound(data1, 1)
      arrstring = data1(i, 2)

      If UBound(Split(arrstring, vbLf)) = 0 Or UBound(Split(arrstring, vbLf)) = -1 Then
        For k = LBound(data1, 2) To UBound(data1, 2)
          data2(p, k) = data1(i, k)
        Next k
'        data2(p, 1) = data1(i, 1)
'        data2(p, 2) = data1(i, 2)
'        data2(p, 3) = data1(i, 3)

        p = p + 1
      End If

      If UBound(Split(arrstring, vbLf)) > 0 Then
        For m = LBound(Split(arrstring, vbLf)) + 1 To UBound(Split(arrstring, vbLf)) + 1
          If m = LBound(Split(arrstring, vbLf)) + 1 Then
            num(0) = InStr(m, data1(i, 2), vbLf) ' 配列 data1 の i 行 2列目（都道府県列）データを、Instr 関数で m（= 1）文字目から区切り文字（vbLf）がある最初の位置の値を動的配列 num(0) に格納
            num(1) = InStr(m, data1(i, 3), vbLf) ' 配列 data1 の i 行 3列目（県庁所在地列）データを、Instr 関数で m（= 1）文字目から区切り文字（vbLf）がある最初の位置の値を動的配列 num(1) に格納

            data2(p, 1) = data1(i, 1)
            data2(p, 2) = Left(data1(i, 2), num(0) - 1) ' 配列 data1 の i 行 2列目（都道府県）のデータを Left 関数で、最初の区切り文字位置のひとつ前（num(0) - 1）までの文字列を取得、配列 data2 の p 行 2列目に格納
            data2(p, 3) = Left(data1(i, 3), num(1) - 1) ' 配列 data1 の i 行 3列目（県庁所在地）のデータを Left 関数で、最初の区切り文字位置のひとつ前（num(1) - 1）までの文字列を取得、配列 data2 の p 行 3列目に格納

'            data2(p, 2) = Mid(data1(i, 2), m, num(0) - 1) ' 配列 data1 の i 行 2列目（都道府県）のデータを Mid 関数で、変数 m 文字目から最初の区切り文字位置のひとつ前（num(0) - 1）までの文字列を取得、配列 data2 の p 行 2列目に格納
'            data2(p, 3) = Mid(data1(i, 3), m, num(1) - 1) ' 配列 data1 の i 行 3列目（県庁所在地）のデータを Mid 関数で、変数 m 文字目から最初の区切り文字位置のひとつ前（num(1) - 1）までの文字列を取得、配列 data2 の p 行 3列目に格納

            p = p + 1
          End If

          If m <> LBound(Split(arrstring, vbLf)) + 1 And m <> UBound(Split(arrstring, vbLf)) + 1 Then
            num(2) = InStr(num(0) + 1, data1(i, 2), vbLf) ' 配列 data1 の i 行 2列目（都道府県列）データを Instr 関数で、動的配列 num(0) に格納されている区切り文字位置の次の位置（num(0) + 1）から次の区切り文字（vbLf）がある位置の値を動的配列 num(2) に格納
            num(3) = InStr(num(1) + 1, data1(i, 3), vbLf) ' 配列 data1 の i 行 2列目（県庁所在地）データを Instr 関数で、動的配列 num(1) に格納されている区切り文字位置の次の位置（num(1) + 1）から次の区切り文字（vbLf）がある位置の値を動的配列 num(3) に格納
            
            data2(p, 1) = data1(i, 1)
            data2(p, 2) = Mid(data1(i, 2), num(0) + 1, num(2) - num(0) - 1) ' 配列 data1 の i 行 2列目（都道府県）のデータを Mid 関数で、動的配列 num(0) に格納されている区切り文字位置の次の位置（num(0) + 1）から次の区切り文字位置のひとつ前までの文字数（num(2) - num(0) - 1）を指定して文字列を取得、配列 data2 の p 行 2列目に格納
            data2(p, 3) = Mid(data1(i, 3), num(1) + 1, num(3) - num(1) - 1) ' 配列 data1 の i 行 3列目（県庁所在地）のデータを Mid 関数で、動的配列 num(1) に格納されている区切り文字位置の次の位置（num(1) + 1）から次の区切り文字位置のひとつ前までの文字数（num(3) - num(1) - 1）を指定して文字列を取得、配列 data2 の p 行 3列目に格納

            num(0) = num(2) ' 配列 data1 の i 行 2列目（都道府県）の区切り文字開始位置の値（num(0)）を、次の区切り文字位置の値（num(2)）に更新（複数の区切り文字がある場合の繰り返し処理対応）
            num(1) = num(3) ' 配列 data1 の i 行 3列目（県庁所在地）の区切り文字開始位置の値（num(1)）を、次の区切り文字位置の値（num(3)）に更新（複数の区切り文字がある場合の繰り返し処理対応）

            p = p + 1
          End If

          If m = UBound(Split(arrstring, vbLf)) + 1 Then
            data2(p, 1) = data1(i, 1)
            data2(p, 2) = Mid(data1(i, 2), num(0) + 1) ' 配列 data1 の i 行 2列目（都道府県）のデータを Mid 関数で、動的配列 num(0) に格納されている最後の区切り文字位置の次の位置（num(0) + 1）からデータ終端まで文字列を取得、配列 data2 の p 行 2列目に格納
            data2(p, 3) = Mid(data1(i, 3), num(1) + 1) ' 配列 data1 の i 行 3列目（県庁所在地）のデータを Mid 関数で、動的配列 num(1) に格納されている最後の区切り文字位置の次の位置（num(1) + 1）からデータ終端まで文字列を取得、配列 data2 の p 行 3列目に格納

            p = p + 1
          End If
        Next m

        ' カウンタ用変数 i をインクリメントして配列 data1(i, 1)の次の地方区分行に進む前に、区切り文字位置の値格納用動的配列すべての要素を for 文を使って 0 で初期化
        For k = LBound(num) To UBound(num) ' 動的配列の最大要素までループ処理
          num(k) = 0 ' 動的配列 num の i 番目に 0 を設定
        Next k
'        num(0) = 0 ' for 文を使わない場合の書き方
'        num(1) = 0 ' for 文を使わない場合の書き方
'        num(2) = 0 ' for 文を使わない場合の書き方
'        num(3) = 0 ' for 文を使わない場合の書き方

      End If

    Next i

  Case 3 ' Case 2 と同じ処理内容、変更点は各配列の行・列・要素番号への直接値の指定からカウンタ用変数 k と For 文を使ってループ処理に変更

    ReDim num(3)
    For i = LBound(num) To UBound(num)
      num(i) = 0
    Next i
'    num = Array(0, 0, 0, 0)

    p = 1

    For i = LBound(data1, 1) To UBound(data1, 1)
      arrstring = data1(i, 2)

      If UBound(Split(arrstring, vbLf)) = 0 Or UBound(Split(arrstring, vbLf)) = -1 Then
        For k = LBound(data1, 2) To UBound(data1, 2)
          data2(p, k) = data1(i, k)
        Next k
'        data2(p, 1) = data1(i, 1)
'        data2(p, 2) = data1(i, 2)
'        data2(p, 3) = data1(i, 3)

        p = p + 1
      End If

      If UBound(Split(arrstring, vbLf)) > 0 Then
        For m = LBound(Split(arrstring, vbLf)) + 1 To UBound(Split(arrstring, vbLf)) + 1
          If m = LBound(Split(arrstring, vbLf)) + 1 Then
            data2(p, 1) = data1(i, 1)

            For k = LBound(data1, 2) + 1 To UBound(data1, 2) ' 2列目から 2次元最大要素までループ処理
              num(k - 2) = InStr(m, data1(i, k), vbLf) ' 配列 data1 の i 行 k 列目（都道府県列・県庁所在地）データを、Instr 関数で m（= 1）文字目から区切り文字（vbLf）がある最初の位置の値を動的配列 num(k - 2) に格納
              data2(p, k) = Left(data1(i, k), num(k - 2) - 1) ' 配列 data1 の i 行 k 列目（都道府県・県庁所在地）のデータを Left 関数で、最初の区切り文字位置のひとつ前（num(k - 2) - 1）までの文字列を取得、配列 data2 の p 行 k 列目に格納
'              data2(p, k) = Mid(data1(i, k), m, num(k - 2) - 1) ' 配列 data1 の i 行 k 列目（都道府県・県庁所在地）のデータを Mid 関数で、変数 m 文字目から最初の区切り文字位置のひとつ前（num(k - 2) - 1）までの文字列を取得、配列 data2 の p 行 k 列目に格納
            Next k
'            num(0) = InStr(m, data1(i, 2), vbLf)
'            num(1) = InStr(m, data1(i, 3), vbLf)

'            data2(p, 2) = Left(data1(i, 2), num(0) - 1)
'            data2(p, 3) = Left(data1(i, 3), num(1) - 1)
'            data2(p, 2) = Mid(data1(i, 2), m, num(0) - 1)
'            data2(p, 3) = Mid(data1(i, 3), m, num(1) - 1)

            p = p + 1
          End If

          If m <> LBound(Split(arrstring, vbLf)) + 1 And m <> UBound(Split(arrstring, vbLf)) + 1 Then
            data2(p, 1) = data1(i, 1)

            For k = LBound(data1, 2) + 1 To UBound(data1, 2) ' 2列目から 2次元最大要素までループ処理
              num(k) = InStr(num(k - 2) + 1, data1(i, k), vbLf) ' 配列 data1 の i 行 k 列目（都道府県列・県庁所在地）データを Instr 関数で、動的配列 num(k - 2) に格納されている区切り文字位置の次の位置（num(k - 2) + 1）から次の区切り文字（vbLf）がある位置の値を動的配列 num(k) に格納
              data2(p, k) = Mid(data1(i, k), num(k - 2) + 1, num(k) - num(k - 2) - 1) ' 配列 data1 の i 行 k 列目（都道府県・県庁所在地）のデータを Mid 関数で、動的配列 num(k - 2) に格納されている区切り文字位置の次の位置（num(k - 2) + 1）から次の区切り文字位置のひとつ前までの文字数（num(k) - num(k - 2) - 1）を指定して文字列を取得、配列 data2 の p 行 k 列目に格納
              num(k - 2) = num(k) ' 配列 data1 の i 行 k 列目（都道府県・県庁所在地）の区切り文字開始位置の値（num(k)）を、次の区切り文字位置の値（num(k - 2)）に更新（複数の区切り文字がある場合の繰り返し処理対応）
            Next k
'            num(2) = InStr(num(0) + 1, data1(i, 2), vbLf)
'            num(3) = InStr(num(1) + 1, data1(i, 3), vbLf)

'            data2(p, 2) = Mid(data1(i, 2), num(0) + 1, num(2) - num(0) - 1)
'            data2(p, 3) = Mid(data1(i, 3), num(1) + 1, num(3) - num(1) - 1)

'            num(0) = num(2)
'            num(1) = num(3)

            p = p + 1
          End If

          If m = UBound(Split(arrstring, vbLf)) + 1 Then
            data2(p, 1) = data1(i, 1)

            For k = LBound(data1, 2) + 1 To UBound(data1, 2) ' 2列目から 2次元最大要素までループ処理
              data2(p, k) = Mid(data1(i, k), num(k - 2) + 1) ' 配列 data1 の i 行 k 列目（都道府県・県庁所在地）のデータを Mid 関数で、動的配列 num(k - 2) に格納されている最後の区切り文字位置の次の位置（num(k - 2) + 1）からデータ終端まで文字列を取得、配列 data2 の p 行 k 列目に格納
            Next k
'            data2(p, 2) = Mid(data1(i, 2), num(0) + 1)
'            data2(p, 3) = Mid(data1(i, 3), num(1) + 1)

            p = p + 1
          End If
        Next m

        For k = LBound(num) To UBound(num)
          num(k) = 0
        Next k
'        num(0) = 0
'        num(1) = 0
'        num(2) = 0
'        num(3) = 0

      End If

    Next i

  Case 4 ' Split 関数で配列に格納した各要素を、インクリメントしたカウンタ変数 s を使って 2次元配列 data2 の行番号を指定して各要素を格納

    Dim tmp As Variant ' Split 関数で返した配列の格納用変数
    Dim s As Long ' 2次元配列 data2 の行番号変数 p 用インクリメント変数

    p = 1
    s = 0 ' 0 で初期化

    For i = LBound(data1, 1) To UBound(data1, 1)
      arrstring = data1(i, 2)

      If UBound(Split(arrstring, vbLf)) = 0 Or UBound(Split(arrstring, vbLf)) = -1 Then
        For k = LBound(data1, 2) To UBound(data1, 2)
          data2(p, k) = data1(i, k)
        Next k
'        data2(p, 1) = data1(i, 1)
'        data2(p, 2) = data1(i, 2)
'        data2(p, 3) = data1(i, 3)

        p = p + 1
      End If

      If UBound(Split(arrstring, vbLf)) > 0 Then

        For k = LBound(data1, 2) + 1 To UBound(data1, 2)
          ' Split 関数の第 1引数に区切り文字列がある 2次元配列を、第 2引数に区切り文字（vbLf）を指定
          ' 1次元配列として返した区切られた各文字列をバリアント型変数 tmp に格納
          tmp = Split(data1(i, k), vbLf)

          ' 分割した都道府県・県庁所在地別の地方区分名を 2次元配列 data2 に格納
          If k = 2 Then ' For 文内で都道府県・県庁所在地別に行分割処理を行う際に地方区分名の代入は 1度だけでいいため、カウンタ変数 k の初期値 2（都道府県列）の時だけ地方区分名を代入処理
            For m = LBound(tmp) To UBound(tmp) ' 1次元配列 tmp の最大要素までループ処理
              data2(p + s, 1) = data1(i, 1) ' 2次元配列 data1 の地方区分名を 2次元配列 data2 に代入、2次元配列 data2 の行番号 p をインクリメントした変数 s を使って行番号指定（ループ開始処理時の変数 s の初期値は 0、ループ処理を抜けたら 0 で初期化）
              s = s + 1 ' 変数 s をインクリメントして次の行番号 p に加算
            Next m

            s = 0 ' 変数 s を 0 で初期化

          End If

          ' 分割した都道府県・県庁所在地名を 2次元配列 data2 に格納
          For m = LBound(tmp) To UBound(tmp) ' 1次元配列 tmp の最大要素までループ処理
            data2(p + s, k) = tmp(m) ' 1次元配列 tmp の都道府県名・県庁所在地名を 2次元配列 data2 に代入、2次元配列 data2 の行番号 p をインクリメントした変数 s を使って行番号指定（ループ開始処理時の変数 s の初期値は 0、ループ処理を抜けたら 0 で初期化）
            s = s + 1 ' 変数 s をインクリメントして次の行番号 p に加算
          Next m

          s = 0 ' 変数 s を 0 で初期化

        Next k

        p = p + UBound(tmp) + 1 ' 配列 data2 の行番号 p に、1次元配列 tmp の最大要素（UBound 関数使用）と 1 を足して次の配列 data2 への代入先行番号を更新（1次元配列 tmp の開始要素番号が 0 からのため + 1 で調整）

      End If

    Next i

  Case Else ' エラー処理（Sub プロシージャー終了）

    MsgBox "変数 val3 に指定された値（1～3）以外の " & val3 & " が代入されているため処理を終了します"
    Exit Sub

  End Select

' ----------

  ' 二次元配列 data2 の内容を、貼り付け先シートの Range で指定したセルから Resize で範囲を変更してセルに代入
  ws2.Range("A2").Resize(UBound(data2, 1), UBound(data2, 2)).Value = data2
  ws2.Activate

  ' テスト用シートに出力する場合は以下のテスト用シートを格納したオブジェクト変数に変更
'  ws3.Range("A2").Resize(UBound(data2, 1), UBound(data2, 2)).Value = data2
'  ws3.Activate

' ----------

  ' 実行速度計測結果表示
  Debug.Print Format(Timer - starttime, "0.00秒")
  
End Sub

Option Explicit

Sub SplitRowsCells1FixMemoryLeaks1() ' メモリリーク対策版
  ' 地方区分を基準としてグループ化したシート「地方区分グループ化文字列連結」をシート「地方区分都道府県県庁所在地リスト」に戻す処理
  ' 1行に文字列を連結した都道府県・県庁所在地の文字列を地方区分別に行分割

  ' 実行速度計測開始
  Dim starttime As Double
  starttime = Timer

' ----------

  ' カウンタ用変数（一見見分けにくい文字同士を組み合わせない形、i と j、m と n、o（オー） と 0（ゼロ））
  Dim i As Long, k As Long, m As Long, p As Long

' ----------

  ' シート格納用オブジェクト変数
  Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet

  ' オブジェクト変数にシートセット
  Set ws1 = ThisWorkbook.Worksheets("地方区分グループ化文字列連結") ' セル分割対象シートをオブジェクト変数にセット
  Set ws2 = ThisWorkbook.Worksheets("地方区分別行分割") ' セル分割後データ貼り付け先シートをオブジェクト変数にセット
'  Set ws3 = ThisWorkbook.Worksheets("temp") ' 一致したデータ出力先テスト用シート

' ----------

  ' 最終行取得用変数
  Dim maxrow1 As Long

  ' シート最終行取得して変数に格納
  maxrow1 = ws1.Cells(Rows.Count, "A").End(xlUp).row

  ' 最終列取得用変数
  Dim maxcol1 As Long

  ' シートの最終列取得して変数に格納
  maxcol1 = ws1.Cells(1, Columns.Count).End(xlToLeft).Column

' ----------

  ' シートの指定したセル範囲を配列として格納する動的配列
  Dim data1() As Variant

  ' シートの指定した範囲内セルを配列として動的配列に格納
  data1 = ws1.Range(ws1.Cells(2, 1), ws1.Cells(maxrow1, maxcol1)).Value

  ' Range オブジェクトを受け取り、2次元配列で返す自作関数 GetArrFromRange
'  data1 = GetArrFromRange.GetArrFromRange(ws1.Range(ws1.Cells(2, 1), ws1.Cells(maxrow1, maxcol1)))

  ' LBound・UBound 関数格納用変数と代入（メモリリーク対策）
  Dim LB_data1_1D As Variant, UB_data1_1D As Variant
  Dim LB_data1_2D As Variant, UB_data1_2D As Variant
  LB_data1_1D = LBound(data1, 1)
  UB_data1_1D = UBound(data1, 1)
  LB_data1_2D = LBound(data1, 2)
  UB_data1_2D = UBound(data1, 2)

' ----------

  ' 都道府県列と県庁所在地列、両列の区切り文字数チェック処理（区切り文字数が一致しない場合処理終了）

  ' 区切り文字数カウント用配列宣言
  Dim sumdelimiter() As Variant ' 区切り文字数合計用配列
  Dim cntdelimiter() As Variant ' 1セルに含まれる区切り文字数格納用配列

  ' LBound・UBound 関数格納用変数（メモリリーク対策）
  Dim LBound_sumdelimiter As Variant, UBound_sumdelimiter As Variant

  ' 区切り文字数合計を格納する都道府県・県庁所在地列の動的配列を作成
  ReDim sumdelimiter(1) ' sumdelimiter(0) - 都道府県列区切り文字数合計、sumdelimiter(1) - 県庁所在地列区切り文字数合計

  ' LBound・UBound 関数格納用変数と代入（メモリリーク対策）
  Dim LB_sumdelimiter As Variant, UB_sumdelimiter As Variant
  LB_sumdelimiter = LBound(sumdelimiter)
  UB_sumdelimiter = UBound(sumdelimiter)

  For i = LB_sumdelimiter To UB_sumdelimiter
    sumdelimiter(i) = 0 ' 初期値 0 設定
  Next i

  ' LBound・UBound 関数格納用変数（メモリリーク対策）
  Dim LBound_cntdelimiter As Variant, UBound_cntdelimiter As Variant

  ' 1セルに含まれる区切り文字数を格納する都道府県・県庁所在地列の動的配列を作成
  ReDim cntdelimiter(1) ' sumdelimiter(0) - 1セルに含まれる都道府県列区切り文字数格納、sumdelimiter(1) - 1セルに含まれる県庁所在地列区切り文字数格納

  ' LBound・UBound 関数格納用変数と代入（メモリリーク対策）
  Dim LB_cntdelimiter As Variant, UB_cntdelimiter As Variant
  LB_cntdelimiter = LBound(cntdelimiter)
  UB_cntdelimiter = UBound(cntdelimiter)

  For i = LB_cntdelimiter To UB_cntdelimiter
    cntdelimiter(i) = 0 ' 初期値 0 設定
  Next i

  ' Array 関数を使って配列の各要素に初期値 0 設定（動的配列（ReDim）や For 文を使わない場合）
'  sumdelimiter = Array(0, 0)
'  cntdelimiter = Array(0, 0)

  ' Select Case ステートメント用変数宣言
  Dim val1 As Long
  val1 = 1 ' Select Case ステートメント Case 1 ～ Case 4 まで処理を用意、1 ～ 4 のいずれかの値を指定

  ' 変数 val1 の値に応じて Case 1 ～ Case 4 のいずれかの処理を実行
  Select Case val1

  ' Split・UBound 関数格納用変数（メモリリーク対策）
  Dim Split_data1_i_k_vbLf As Variant ' Split_data1_i_k_vbLf = Split(data1(i, k), vbLf)
  Dim UB_Split_data1_i_k_vbLf As Variant ' UB_Split_data1_i_k_vbLf = UBound(Split_data1_i_k_vbLf)

  Case 1 ' Len 関数と Len 関数＋ Replace 関数を使って文字数の差分から区切り文字数を計算・合計

    For i = LB_data1_1D To UB_data1_1D ' 1次元最大要素までループ処理
      For k = LB_data1_2D + 1 To UB_data1_2D ' 2列目から 2次元最大要素までループ処理
        ' 配列 data1 の i 行 k 列目の文字数を Len 関数でカウント（区切り文字（vbLf）削除前文字数）
        ' Replace 関数で配列 data1 の i 行 k 列目の区切り文字（vbLf）を "" で削除して Len 関数でカウント（区切り文字（vbLf）削除後文字数）
        ' 区切り文字（vbLf）削除前文字数から区切り文字（vbLf）削除後文字数を差し引き区切り文字数をカウントして、配列 cntdelimiter(k - 2) に代入
        cntdelimiter(k - 2) = Len(data1(i, k)) - Len(Replace(data1(i, k), vbLf, ""))
        ' 配列 sumdelimiter(k - 2) で区切り文字数 cntdelimiter(k - 2) を合計
        sumdelimiter(k - 2) = sumdelimiter(k - 2) + cntdelimiter(k - 2)
      Next k

      ' cntdelimiter(0)（都道府県列）と cntdelimiter(1)（県庁所在地列）の値（区切り文字数）が一致しない場合 Sub プロシージャー終了
      If cntdelimiter(0) <> cntdelimiter(1) Then
        MsgBox "地方区分「" & data1(i, 1) & "」の区切り文字数が一致しないため処理を終了します" & vbCrLf & _
        "都道府県列区切り文字数「" & cntdelimiter(0) & "」、県庁所在地列区切り文字数「" & cntdelimiter(1) & "」"
        Exit Sub
      End If

    Next i

  Case 2 ' Case 1 の 2行の区切り文字数計算式と合計式を 1行にまとめ

    For i = LB_data1_1D To UB_data1_1D ' 1次元最大要素までループ処理
      For k = LB_data1_2D + 1 To UB_data1_2D ' 2列目から 2次元最大要素までループ処理
        ' cntdelimiter(k - 2) = Len(data1(i, k)) - Len(Replace(data1(i, k), vbLf, ""))
        ' sumdelimiter(k - 2) = sumdelimiter(k - 2) + cntdelimiter(k - 2)
        ' 2行の計算式を 1行にまとめ
        sumdelimiter(k - 2) = sumdelimiter(k - 2) + (Len(data1(i, k)) - Len(Replace(data1(i, k), vbLf, "")))
      Next k
    Next i

  Case 3 ' Split 関数で区切り文字で配列に格納された文字列を分割、Ubound 関数で要素番号の最大値を返して区切り文字数を計算・合計

    For i = LB_data1_1D To UB_data1_1D ' 1次元最大要素までループ処理
      For k = LB_data1_2D + 1 To UB_data1_2D ' 2列目から 2次元最大要素までループ処理

        ' Split・UBound 関数格納用変数へ代入（メモリリーク対策）
        Split_data1_i_k_vbLf = Split(data1(i, k), vbLf)
        UB_Split_data1_i_k_vbLf = UBound(Split_data1_i_k_vbLf)
        
        If UB_Split_data1_i_k_vbLf = -1 Then ' 配列 data1 の i 行 k 列目のデータが Empty で Ubound・Split 関数で -1 を返す場合
          cntdelimiter(k - 2) = 0 ' 区切り文字がないため区切り文字数格納用配列 cntdelimiter(k - 2) に 0 を代入
        ElseIf UB_Split_data1_i_k_vbLf <> -1 Then ' 配列 data1 の i 行 k 列目のデータが Empty ではない場合
          cntdelimiter(k - 2) = UB_Split_data1_i_k_vbLf ' Ubound・Split 関数結果を配列 cntdelimiter(k - 2)に代入
        End If
        sumdelimiter(k - 2) = sumdelimiter(k - 2) + cntdelimiter(k - 2) ' 区切り文字数格納用配列 cntdelimiter(k - 2) を区切り文字数合計用配列 sumdelimiter(k - 2)に加算して格納
      Next k

      ' cntdelimiter(0)（都道府県列）と cntdelimiter(1)（県庁所在地列）の値（区切り文字数）が一致しない場合 Sub プロシージャー終了
      If cntdelimiter(0) <> cntdelimiter(1) Then
        MsgBox "地方区分「" & data1(i, 1) & "」の区切り文字数が一致しないため処理を終了します" & vbCrLf & _
        "都道府県列区切り文字数「" & cntdelimiter(0) & "」、県庁所在地列区切り文字数「" & cntdelimiter(1) & "」"
        Exit Sub
      End If

    Next i

  Case 4 ' Case 3 とほぼ同じ処理内容で区切り文字数格納用配列 cntdelimiter(k - 2) を使わずに、Ubound・Split 関数の結果と合計用配列 sumdelimiter(k - 2) を使って計算・合計

    For i = LB_data1_1D To UB_data1_1D ' 1次元最大要素までループ処理
      For k = LB_data1_2D + 1 To UB_data1_2D ' 2列目から 2次元最大要素までループ処理

        ' Split・UBound 関数格納用変数へ代入（メモリリーク対策）
        Split_data1_i_k_vbLf = Split(data1(i, k), vbLf)
        UB_Split_data1_i_k_vbLf = UBound(Split_data1_i_k_vbLf)

        If UB_Split_data1_i_k_vbLf = -1 Then ' 配列 data1 の i 行 k 列目のデータが Empty で Ubound・Split 関数で -1 を返す場合
          sumdelimiter(k - 2) = sumdelimiter(k - 2) ' 区切り文字がないため合計用配列 sumdelimiter(k - 2) に sumdelimiter(k - 2) を代入（変更なし）
        ElseIf UB_Split_data1_i_k_vbLf <> -1 Then ' 配列 data1 の i 行 k 列目のデータが Empty ではない場合
          sumdelimiter(k - 2) = sumdelimiter(k - 2) + UB_Split_data1_i_k_vbLf ' 区切り文字数合計用配列 sumdelimiter(k - 2) と Ubound・Split 関数の結果を使って計算・合計
        End If
      Next k
    Next i

  Case Else ' エラー処理（Sub プロシージャー終了）
  
    MsgBox "変数 val1 に指定された値（1～4）以外の " & val1 & " が代入されているため処理を終了します"
    Exit Sub

  End Select

  ' 区切り文字数合計用配列 sumdelimiter(0)（都道府県列）と sumdelimiter(1)（県庁所在地列）の値をイミディエイトウィンドウに表示（デバッグ用）
  Debug.Print sumdelimiter(0) & "," & sumdelimiter(1)

  ' sumdelimiter(0)（都道府県列）と sumdelimiter(1)（県庁所在地列）の値（区切り文字数）が一致しない場合 Sub プロシージャー終了
  If sumdelimiter(0) <> sumdelimiter(1) Then
    MsgBox "区切り文字数合計が一致しないため処理を終了します" & vbCrLf & _
    "都道府県列区切り文字数合計「" & sumdelimiter(0) & "」、県庁所在地列区切り文字数合計「" & sumdelimiter(1) & "」"
    Exit Sub
  End If

' ----------

  ' 都道府県・県庁所在地列カウント処理（区切り文字数チェック処理をクリアできれば都道府県・県庁所在地ともに必ず 47 になる）
  ' ここの処理結果で配列 sumstring()に格納した値（47）を使って、次に区切り文字から分割した地方区分別の都道府県・県庁所在地を格納する配列を作成

  ' 都道府県・県庁所在地列カウント用配列宣言
  Dim sumstring() As Variant ' 都道府県・県庁所在地数合計用配列
  Dim cntstring() As Variant ' 1セルに含まれる都道府県・県庁所在地数格納用配列

  ' 地名数合計を格納する都道府県・県庁所在地列の動的配列を作成
  ReDim sumstring(1) ' sumstring(0) - 都道府県数合計、sumstring(1) - 県庁所在地数合計

  ' LBound・UBound 関数格納用変数と代入（メモリリーク対策）
  Dim LB_sumstring As Variant, UB_sumstring As Variant
  LB_sumstring = LBound(sumstring)
  UB_sumstring = UBound(sumstring)

  For i = LB_sumstring To UB_sumstring
    sumstring(i) = 0 ' 初期値 0 設定
  Next i

  ' 1セルに含まれる地名数を格納する都道府県・県庁所在地列の動的配列を作成
  ReDim cntstring(1) ' cntstring(0) - 1セルに含まれる都道府県数格納、cntstring(1) - 1セルに含まれる県庁所在地数格納

  ' LBound・UBound 関数格納用変数と代入（メモリリーク対策）
  Dim LB_cntstring As Variant, UB_cntstring As Variant
  LB_cntstring = LBound(cntstring)
  UB_cntstring = UBound(cntstring)

  For i = LB_cntstring To UB_cntstring
    cntstring(i) = 0 ' 初期値 0 設定
  Next i

  ' Array 関数を使って配列の各要素に初期値 0 設定（動的配列（ReDim）や For 文を使わない）
'  sumstring = Array(0, 0)
'  cntstring = Array(0, 0)

  ' Select Case ステートメント用変数宣言
  Dim val2 As Long
  val2 = 1 ' Select Case ステートメント Case 1 と Case 2 の処理を用意、1～2 のいずれかの値を指定

  ' 変数 val2 の値に応じて Case 1 か Case 2 のいずれかの処理を実行
  Select Case val2

  Case 1 ' Split 関数で区切り文字で配列に格納された文字列を分割、Ubound 関数で要素番号の最大値に +1 して都道府県・県庁所在地数を計算・合計

    For i = LB_data1_1D To UB_data1_1D ' 1次元最大要素までループ処理
      For k = LB_data1_2D + 1 To UB_data1_2D ' 2列目から 2次元最大要素までループ処理

        ' Split・UBound 関数格納用変数へ代入（メモリリーク対策）
        Split_data1_i_k_vbLf = Split(data1(i, k), vbLf)
        UB_Split_data1_i_k_vbLf = UBound(Split_data1_i_k_vbLf)

        If UB_Split_data1_i_k_vbLf = -1 Then ' Ubound・Split 関数結果で区切り文字がない場合 -1 を返す時の処理
          cntstring(k - 2) = 1 ' 都道府県・県庁所在地数格納用配列 cntstring(k - 2) に 1 を代入（全国都道府県・県庁所在地数帳尻合わせのため）
        ElseIf UB_Split_data1_i_k_vbLf <> -1 Then ' 配列 data1 の i 行 k 列目のデータが Empty ではない場合
          cntstring(k - 2) = UB_Split_data1_i_k_vbLf + 1 ' Ubound・Split 関数結果を配列 cntstring(k - 2)に代入
        End If
        sumstring(k - 2) = sumstring(k - 2) + cntstring(k - 2) ' 都道府県・県庁所在地数格納用配列 cntstring(k - 2) を都道府県・県庁所在地数合計用配列 sumstring(k - 2)に加算して格納
      Next k
    Next i

  Case 2 ' Case 1 の処理内容で都道府県・県庁所在地数格納用配列 cntstring(k - 2) を使わずに、Ubound・Split 関数の結果と合計用配列 sumstring(k - 2) を使って計算・合計

    For i = LB_data1_1D To UB_data1_1D ' 1次元最大要素までループ処理
      For k = LB_data1_2D + 1 To UB_data1_2D ' 2列目から 2次元最大要素までループ処理

        ' Split・UBound 関数格納用変数へ代入（メモリリーク対策）
        Split_data1_i_k_vbLf = Split(data1(i, k), vbLf)
        UB_Split_data1_i_k_vbLf = UBound(Split_data1_i_k_vbLf)

        If UB_Split_data1_i_k_vbLf = -1 Then ' 配列 data1 の i 行 k 列目のデータが Empty で Ubound・Split 関数で -1 を返す場合
          sumstring(k - 2) = sumstring(k - 2) + 1 ' 都道府県・県庁所在地数合計用配列 sumstring(k - 2) に 1 を足して sumstring(k - 2) に代入（全国都道府県・県庁所在地数帳尻合わせのため）
        ElseIf UB_Split_data1_i_k_vbLf <> -1 Then ' 配列 data1 の i 行 k 列目のデータが Empty ではない場合
          sumstring(k - 2) = sumstring(k - 2) + UB_Split_data1_i_k_vbLf + 1 ' 都道府県・県庁所在地数合計用配列 sumstring(k - 2) と Ubound・Split 関数の結果を使って計算・合計
        End If
      Next k
    Next i

  Case Else ' エラー処理（Sub プロシージャー終了）
  
    MsgBox "変数 val2 に指定された値（1～2）以外の " & val2 & " が代入されているため処理を終了します"
    Exit Sub

  End Select

  ' 都道府県・県庁所在地数合計用配列 sumstring(0)（都道府県列）と sumstring(1)（県庁所在地列）の値をイミディエイトウィンドウに表示（デバッグ用）
  Debug.Print sumstring(0) & "," & sumstring(1)

' ----------

  ' シートの指定したセル範囲を配列として格納する動的配列
  Dim data2() As Variant

  ' シートの指定した範囲内セルを配列として動的配列に格納
  ' 終点セルの行は都道府県・県庁所在地数合計用配列 sumstring(0) または sumstring(1) に + 1 で調整（どちらも値は 47）
  data2 = ws1.Range(ws1.Cells(2, LB_data1_1D), ws1.Cells(sumstring(0) + 1, UB_data1_2D)).Value
'  data2 = ws1.Range(ws1.Cells(2, LB_data1_1D), ws1.Cells(sumstring(1) + 1, UB_data1_2D)).Value

  ' Range オブジェクトを受け取り、2次元配列で返す自作関数 GetArrFromRange
'  data2 = GetArrFromRange.GetArrFromRange(ws1.Range(ws1.Cells(2, LB_data1_1D), ws1.Cells(sumstring(0) + 1, UB_data1_1D)))
'  data2 = GetArrFromRange.GetArrFromRange(ws1.Range(ws1.Cells(2, LB_data1_2D), ws1.Cells(sumstring(1) + 1, UB_data1_2D)))

  ' LBound・UBound 関数格納用変数と代入（メモリリーク対策）
  Dim LB_data2_1D As Variant, UB_data2_1D As Variant
  Dim LB_data2_2D As Variant, UB_data2_2D As Variant
  LB_data2_1D = LBound(data2, 1)
  UB_data2_1D = UBound(data2, 1)
  LB_data2_2D = LBound(data2, 2)
  UB_data2_2D = UBound(data2, 2)

  ' 地方区分・都道府県・県庁所在地格納用 2次元配列の最大要素まで Empty で初期化（繰り返し（やり直し）処理に対応）
  For i = LB_data2_1D To UB_data2_1D ' 1次元最大要素までループ処理
    For k = LB_data2_2D To UB_data2_2D ' 2次元最大要素までループ処理
      data2(i, k) = Empty ' 配列に Empty を代入して初期化
    Next k
'    data2(i, 1) = Empty ' for 文を使わない場合の書き方
'    data2(i, 2) = Empty ' for 文を使わない場合の書き方
'    data2(i, 3) = Empty ' for 文を使わない場合の書き方
  Next i

  ' Redim ステートメントを使った 2次元配列の最大要素までの初期化
'  ReDim data2(1 To UB_data2_1D, 1 To UB_data2_2D)

' ----------

  ' 都道府県・県庁所在地列の区切り文字間にある各地名を順番に分割して抽出、地方区分別に配列の各行列に代入（区切り文字で連結された文字列を地方区分別に分割）

  Dim arrstring As String ' 区切り文字位置特定用文字列型変数宣言
  Dim num() As Variant ' 区切り文字位置の値格納用動的配列宣言、Select Case ステートメント Case 2 と Case 3 で使用

  ' Select Case ステートメント用変数宣言
  Dim val3 As Long
  val3 = 4 ' Select Case ステートメント Case 1 ～ Case 4 の処理を用意、1 ～ 4 のいずれかの値を指定

  ' 変数 val3 の値に応じて Case 1 ～ Case 4 のいずれかの処理を実行
  Select Case val3

  ' Split・LBound・UBound 関数格納用変数（メモリリーク対策）
  Dim Split_arrstring_vbLf As Variant ' Split_arrstring_vbLf = Split(arrstring, vbLf)
  Dim LB_Split_arrstring_vbLf As Variant ' LB_Split_arrstring_vbLf = LBound(Split_arrstring_vbLf)
  Dim UB_Split_arrstring_vbLf As Variant ' UB_Split_arrstring_vbLf = UBound(Split_arrstring_vbLf)
  Dim LB_num As Variant ' LB_num = LBound(num)
  Dim UB_num As Variant ' UB_num = UBound(num)

  Case 1 ' 変数 num1 ～ num4 に区切り文字位置の値を代入して InStr・Left（または Mid）関数を使って区切り文字位置を特定、区切り文字間にある文字列を配列に代入

    Dim num1 As Long, num2 As Long, num3 As Long, num4 As Long ' 区切り文字位置の値格納用変数宣言

    ' 区切り文字位置の値格納用変数を 0 で初期化
    num1 = 0 ' 都道府県列の各セル区切り文字がある最初の文字位置格納用変数（複数の区切り文字がある場合、num1 の文字位置から次の区切り文字がある文字位置（変数 num3）を格納して更新）
    num2 = 0 ' 県庁所在地列の各セル区切り文字がある最初の文字位置格納用変数（複数の区切り文字がある場合、num2 の文字位置から次の区切り文字がある文字位置（変数 num4）を格納して更新）
    num3 = 0 ' 都道府県列の区切り文字位置を格納した変数 num1 を基準にして、次の区切り文字がある位置格納用変数
    num4 = 0 ' 県庁所在地列の区切り文字位置を格納した変数 num3 を基準にして、次の区切り文字がある位置格納用変数

    ' カウンタ用変数 p を使って配列 data2 の p 行に（区切り文字間にある）都道府県・県庁所在地文字列を代入
    p = 1 ' 初期値として 1（行目）を設定、各 If 文の条件式で処理後、最後に p = p + 1 でインクリメントして次の行に指定

    For i = LB_data1_1D To UB_data1_1D ' 1次元最大要素までループ処理
      ' 配列 data1 の i 行 2列目または 3列目のデータを文字列型変数 arrstring に代入
      ' この後の If・For 文で文字列型変数 arrstring に対して LBound・UBound・Split 関数を使い、区切り文字数を計算・カウント、区切り文字数に応じた処理を実行
      ' 区切り文字数取得が目的のため data1(i, 2) または data1(i, 3) のどちらかだけでよい
      arrstring = data1(i, 2)
'      arrstring = data1(i, 3)

      ' Split・LBound・UBound 関数格納用変数へ代入（メモリリーク対策）
      Split_arrstring_vbLf = Split(arrstring, vbLf)
      LB_Split_arrstring_vbLf = LBound(Split_arrstring_vbLf)
      UB_Split_arrstring_vbLf = UBound(Split_arrstring_vbLf)

      ' 文字列型変数 arrstring に区切り文字がない場合は Ubound・Split 関数で 0 を返す、または Empty なら Ubound・Split 関数で -1 を返す場合の処理
      If UB_Split_arrstring_vbLf = 0 Or UB_Split_arrstring_vbLf = -1 Then
        For k = LB_data1_2D To UB_data1_2D ' 2次元最大要素までループ処理
          data2(p, k) = data1(i, k) ' 配列 data1 の i 行 k 列目のデータを、配列 data2 の p 行 k 列目に代入（区切り文字間の文字抽出処理不要）
        Next k
'        data2(p, 1) = data1(i, 1) ' for 文を使わない場合の書き方
'        data2(p, 2) = data1(i, 2) ' for 文を使わない場合の書き方
'        data2(p, 3) = data1(i, 3) ' for 文を使わない場合の書き方

        p = p + 1 ' 配列 data2 の p 行をインクリメント（+1）して次の行に指定
      End If

      ' 文字列型変数 arrstring に区切り文字がある場合の処理
      If UB_Split_arrstring_vbLf > 0 Then
        ' Split 関数を使って区切り文字（vbLf）で文字列型変数 arrstring に格納された文字列を分割、Lbound・Ubound 関数で要素番号の最小値（必ず 0）と最大値を返してそれぞれ +1 を計算
        ' 区切り文字間の文字列を抽出するため、For 文で最小値（必ず 1）と最大値をカウンタ用変数 m に代入してループ処理
        For m = LB_Split_arrstring_vbLf + 1 To UB_Split_arrstring_vbLf + 1
          ' For 文のカウンタ用変数 m が初期値の場合（Split 関数を使って区切り文字（vbLf）で文字列型変数 arrstring に格納された文字列を分割後、Lbound 関数で要素番号の最小値（必ず 0）+1 の場合）
          ' 区切り文字がある場合、この処理は必ず最初に通る
          If m = LB_Split_arrstring_vbLf + 1 Then
            num1 = InStr(m, data1(i, 2), vbLf) ' 配列 data1 の i 行 2列目（都道府県列）データを、Instr 関数で m（= 1）文字目から区切り文字（vbLf）がある最初の位置の値を変数 num1 に格納
            num2 = InStr(m, data1(i, 3), vbLf) ' 配列 data1 の i 行 3列目（県庁所在地列）データを、Instr 関数で m（= 1）文字目から区切り文字（vbLf）がある最初の位置の値を変数 num2 に格納

            data2(p, 1) = data1(i, 1) ' 配列 data1 の i 行 1列目（地方区分）のデータを、配列 data2 の p 行 1列目に格納
            data2(p, 2) = Left(data1(i, 2), num1 - 1) ' 配列 data1 の i 行 2列目（都道府県）のデータを Left 関数で、最初の区切り文字位置のひとつ前（num1 - 1）までの文字列を取得、配列 data2 の p 行 2列目に格納
            data2(p, 3) = Left(data1(i, 3), num2 - 1) ' 配列 data1 の i 行 3列目（県庁所在地）のデータを Left 関数で、最初の区切り文字位置のひとつ前（num2 - 1）までの文字列を取得、配列 data2 の p 行 3列目に格納
'            data2(p, 2) = Mid(data1(i, 2), m, num1 - 1) ' 配列 data1 の i 行 2列目（都道府県）のデータを Mid 関数で、変数 m 文字目から最初の区切り文字位置のひとつ前（num1 - 1）までの文字列を取得、配列 data2 の p 行 2列目に格納
'            data2(p, 3) = Mid(data1(i, 3), m, num2 - 1) ' 配列 data1 の i 行 3列目（県庁所在地）のデータを Mid 関数で、変数 m 文字目から最初の区切り文字位置のひとつ前（num2 - 1）までの文字列を取得、配列 data2 の p 行 3列目に格納

            p = p + 1 ' 配列 data2 の p 行をインクリメント（+1）して次の行に指定
          End If

          ' for 文のカウンタ用変数 m が初期値以外かつ最終値以外の場合（Split 関数を使って区切り文字（vbLf）で文字列型変数 arrstring に格納された文字列を分割後、Lbound 関数で要素番号の最小値（必ず 0）+1 以外かつ最大値 +1 以外の場合）
          ' 例としてカウンタ用変数 m が 1 ～ 4 場合 2 と 3 が条件に合致、変数 m が 1 ～ 3 の場合 2 が条件合致、変数 m が 1 ～ 2 の場合はどちらも初期値（要素番号最小値 +1）と最終値（要素番号最大値 +1）のため条件に合致しない
          If m <> LB_Split_arrstring_vbLf + 1 And m <> UB_Split_arrstring_vbLf + 1 Then
            num3 = InStr(num1 + 1, data1(i, 2), vbLf) ' 配列 data1 の i 行 2列目（都道府県列）データを Instr 関数で、変数 num1 に格納されている区切り文字位置の値の次の位置（num1 + 1）から次の区切り文字（vbLf）がある位置の値を変数 num3 に格納
            num4 = InStr(num2 + 1, data1(i, 3), vbLf) ' 配列 data1 の i 行 2列目（県庁所在地）データを Instr 関数で、変数 num1 に格納されている区切り文字位置の値の次の位置（num2 + 1）から次の区切り文字（vbLf）がある位置の値を変数 num4 に格納

            data2(p, 1) = data1(i, 1) ' 配列 data1 の i 行 1列目（地方区分）のデータを、配列 data2 の p 行 1列目に格納
            data2(p, 2) = Mid(data1(i, 2), num1 + 1, num3 - num1 - 1) ' 配列 data1 の i 行 2列目（都道府県）のデータを Mid 関数で、変数 num1 に格納されている区切り文字位置の次の位置（num1 + 1）から次の区切り文字位置のひとつ前までの文字数（num3 - num1 - 1）を指定して文字列を取得、配列 data2 の p 行 2列目に格納
            data2(p, 3) = Mid(data1(i, 3), num2 + 1, num4 - num2 - 1) ' 配列 data1 の i 行 3列目（県庁所在地）のデータを Mid 関数で、変数 num2 に格納されている区切り文字位置の次の位置（num2 + 1）から次の区切り文字位置のひとつ前までの文字数（num4 - num2 - 1）を指定して文字列を取得、配列 data2 の p 行 3列目に格納

            num1 = num3 ' 配列 data1 の i 行 2列目（都道府県）の区切り文字開始位置の値（num1）を、次の区切り文字位置の値（num3）に更新（複数の区切り文字がある場合の繰り返し処理対応）
            num2 = num4 ' 配列 data1 の i 行 3列目（県庁所在地）の区切り文字開始位置の値（num2）を、次の区切り文字位置の値（num4）に更新（複数の区切り文字がある場合の繰り返し処理対応）

            p = p + 1 ' 配列 data2 の p 行をインクリメント（+1）して次の行に指定
          End If

          ' For 文のカウンタ用変数 m が最終値の場合（Split 関数を使って区切り文字（vbLf）で文字列型変数 arrstring に格納された文字列を分割後、Lbound 関数で要素番号の最大値 +1 の場合）
          ' 例としてカウンタ用変数 m が 1 ～ 3 場合 3 が条件に合致、変数 m が 1 ～ 2 の場合 2 が条件合致
          ' 区切り文字がある場合、この処理は必ず最後に通る
          If m = UB_Split_arrstring_vbLf + 1 Then
            data2(p, 1) = data1(i, 1) ' 配列 data1 の i 行 1列目（地方区分）のデータを、配列 data2 の p 行 1列目に格納
            data2(p, 2) = Mid(data1(i, 2), num1 + 1) ' 配列 data1 の i 行 2列目（都道府県）のデータを Mid 関数で、変数 num1 に格納されている最後の区切り文字位置の次の位置（num1 + 1）からデータ終端まで文字列を取得、配列 data2 の p 行 2列目に格納
            data2(p, 3) = Mid(data1(i, 3), num2 + 1) ' 配列 data1 の i 行 3列目（県庁所在地）のデータを Mid 関数で、変数 num2 に格納されている最後の区切り文字位置の次の位置（num2 + 1）からデータ終端まで文字列を取得、配列 data2 の p 行 3列目に格納

            p = p + 1 ' 配列 data2 の p 行をインクリメント（+1）して次の行に指定
          End If
        Next m

        ' カウンタ用変数 i をインクリメントして配列 data1(i, 1)の次の地方区分行に進む前に、区切り文字位置の値格納用変数すべてを 0 で初期化
        num1 = 0
        num2 = 0
        num3 = 0
        num4 = 0

      End If

    Next i

  Case 2 ' Case 1 と同じ処理内容、変更点は区切り文字位置の値格納用変数 num1 ～ num4 を使わず、代わりに区切り文字位置の値格納用動的配列 num() を使用

    ' 区切り文字位置の値格納用動的配列 num() を定義して初期値設定
    ReDim num(3) ' 区切り文字位置の値格納用変数 num1 ～ num4 の個数分（全部で 4つ）要素数を定義

    ' LBound・UBound 関数格納用変数へ代入（メモリリーク対策）
    LB_num = LBound(num)
    UB_num = UBound(num)

    For i = LB_num To UB_num ' 動的配列の最大要素までループ処理
      num(i) = 0 ' 動的配列 num の i 番目に 0 を設定
    Next i
'    num = Array(0, 0, 0, 0) ' 動的配列と for 文を使わない場合の書き方

    p = 1

    For i = LB_data1_1D To UB_data1_1D
      arrstring = data1(i, 2)

      ' Split・LBound・UBound 関数格納用変数へ代入（メモリリーク対策）
      Split_arrstring_vbLf = Split(arrstring, vbLf)
      LB_Split_arrstring_vbLf = LBound(Split_arrstring_vbLf)
      UB_Split_arrstring_vbLf = UBound(Split_arrstring_vbLf)

      If UB_Split_arrstring_vbLf = 0 Or UB_Split_arrstring_vbLf = -1 Then
        For k = LB_data1_2D To UB_data1_2D
          data2(p, k) = data1(i, k)
        Next k
'        data2(p, 1) = data1(i, 1)
'        data2(p, 2) = data1(i, 2)
'        data2(p, 3) = data1(i, 3)

        p = p + 1
      End If

      If UB_Split_arrstring_vbLf > 0 Then
        For m = LB_Split_arrstring_vbLf + 1 To UB_Split_arrstring_vbLf + 1
          If m = LB_Split_arrstring_vbLf + 1 Then
            num(0) = InStr(m, data1(i, 2), vbLf) ' 配列 data1 の i 行 2列目（都道府県列）データを、Instr 関数で m（= 1）文字目から区切り文字（vbLf）がある最初の位置の値を動的配列 num(0) に格納
            num(1) = InStr(m, data1(i, 3), vbLf) ' 配列 data1 の i 行 3列目（県庁所在地列）データを、Instr 関数で m（= 1）文字目から区切り文字（vbLf）がある最初の位置の値を動的配列 num(1) に格納

            data2(p, 1) = data1(i, 1)
            data2(p, 2) = Left(data1(i, 2), num(0) - 1) ' 配列 data1 の i 行 2列目（都道府県）のデータを Left 関数で、最初の区切り文字位置のひとつ前（num(0) - 1）までの文字列を取得、配列 data2 の p 行 2列目に格納
            data2(p, 3) = Left(data1(i, 3), num(1) - 1) ' 配列 data1 の i 行 3列目（県庁所在地）のデータを Left 関数で、最初の区切り文字位置のひとつ前（num(1) - 1）までの文字列を取得、配列 data2 の p 行 3列目に格納

'            data2(p, 2) = Mid(data1(i, 2), m, num(0) - 1) ' 配列 data1 の i 行 2列目（都道府県）のデータを Mid 関数で、変数 m 文字目から最初の区切り文字位置のひとつ前（num(0) - 1）までの文字列を取得、配列 data2 の p 行 2列目に格納
'            data2(p, 3) = Mid(data1(i, 3), m, num(1) - 1) ' 配列 data1 の i 行 3列目（県庁所在地）のデータを Mid 関数で、変数 m 文字目から最初の区切り文字位置のひとつ前（num(1) - 1）までの文字列を取得、配列 data2 の p 行 3列目に格納

            p = p + 1
          End If

          If m <> LB_Split_arrstring_vbLf + 1 And m <> UB_Split_arrstring_vbLf + 1 Then
            num(2) = InStr(num(0) + 1, data1(i, 2), vbLf) ' 配列 data1 の i 行 2列目（都道府県列）データを Instr 関数で、動的配列 num(0) に格納されている区切り文字位置の次の位置（num(0) + 1）から次の区切り文字（vbLf）がある位置の値を動的配列 num(2) に格納
            num(3) = InStr(num(1) + 1, data1(i, 3), vbLf) ' 配列 data1 の i 行 2列目（県庁所在地）データを Instr 関数で、動的配列 num(1) に格納されている区切り文字位置の次の位置（num(1) + 1）から次の区切り文字（vbLf）がある位置の値を動的配列 num(3) に格納
            
            data2(p, 1) = data1(i, 1)
            data2(p, 2) = Mid(data1(i, 2), num(0) + 1, num(2) - num(0) - 1) ' 配列 data1 の i 行 2列目（都道府県）のデータを Mid 関数で、動的配列 num(0) に格納されている区切り文字位置の次の位置（num(0) + 1）から次の区切り文字位置のひとつ前までの文字数（num(2) - num(0) - 1）を指定して文字列を取得、配列 data2 の p 行 2列目に格納
            data2(p, 3) = Mid(data1(i, 3), num(1) + 1, num(3) - num(1) - 1) ' 配列 data1 の i 行 3列目（県庁所在地）のデータを Mid 関数で、動的配列 num(1) に格納されている区切り文字位置の次の位置（num(1) + 1）から次の区切り文字位置のひとつ前までの文字数（num(3) - num(1) - 1）を指定して文字列を取得、配列 data2 の p 行 3列目に格納

            num(0) = num(2) ' 配列 data1 の i 行 2列目（都道府県）の区切り文字開始位置の値（num(0)）を、次の区切り文字位置の値（num(2)）に更新（複数の区切り文字がある場合の繰り返し処理対応）
            num(1) = num(3) ' 配列 data1 の i 行 3列目（県庁所在地）の区切り文字開始位置の値（num(1)）を、次の区切り文字位置の値（num(3)）に更新（複数の区切り文字がある場合の繰り返し処理対応）

            p = p + 1
          End If

          If m = UB_Split_arrstring_vbLf + 1 Then
            data2(p, 1) = data1(i, 1)
            data2(p, 2) = Mid(data1(i, 2), num(0) + 1) ' 配列 data1 の i 行 2列目（都道府県）のデータを Mid 関数で、動的配列 num(0) に格納されている最後の区切り文字位置の次の位置（num(0) + 1）からデータ終端まで文字列を取得、配列 data2 の p 行 2列目に格納
            data2(p, 3) = Mid(data1(i, 3), num(1) + 1) ' 配列 data1 の i 行 3列目（県庁所在地）のデータを Mid 関数で、動的配列 num(1) に格納されている最後の区切り文字位置の次の位置（num(1) + 1）からデータ終端まで文字列を取得、配列 data2 の p 行 3列目に格納

            p = p + 1
          End If
        Next m

        ' カウンタ用変数 i をインクリメントして配列 data1(i, 1)の次の地方区分行に進む前に、区切り文字位置の値格納用動的配列すべての要素を for 文を使って 0 で初期化
        For k = LB_num To UB_num ' 動的配列の最大要素までループ処理
          num(k) = 0 ' 動的配列 num の i 番目に 0 を設定
        Next k
'        num(0) = 0 ' for 文を使わない場合の書き方
'        num(1) = 0 ' for 文を使わない場合の書き方
'        num(2) = 0 ' for 文を使わない場合の書き方
'        num(3) = 0 ' for 文を使わない場合の書き方

      End If

    Next i

  Case 3 ' Case 2 と同じ処理内容、変更点は各配列の行・列・要素番号への直接値の指定からカウンタ用変数 k と For 文を使ってループ処理に変更

    ReDim num(3)

    ' LBound・UBound 関数格納用変数へ代入（メモリリーク対策）
    LB_num = LBound(num)
    UB_num = UBound(num)

    For i = LB_num To UB_num
      num(i) = 0
    Next i
'    num = Array(0, 0, 0, 0)

    p = 1

    For i = LB_data1_1D To UB_data1_1D
      arrstring = data1(i, 2)

      ' Split・LBound・UBound 関数格納用変数へ代入（メモリリーク対策）
      Split_arrstring_vbLf = Split(arrstring, vbLf)
      LB_Split_arrstring_vbLf = LBound(Split_arrstring_vbLf)
      UB_Split_arrstring_vbLf = UBound(Split_arrstring_vbLf)

      If UB_Split_arrstring_vbLf = 0 Or UB_Split_arrstring_vbLf = -1 Then
        For k = LB_data1_2D To UB_data1_2D
          data2(p, k) = data1(i, k)
        Next k
'        data2(p, 1) = data1(i, 1)
'        data2(p, 2) = data1(i, 2)
'        data2(p, 3) = data1(i, 3)

        p = p + 1
      End If

      If UB_Split_arrstring_vbLf > 0 Then
        For m = LB_Split_arrstring_vbLf + 1 To UB_Split_arrstring_vbLf + 1
          If m = LB_Split_arrstring_vbLf + 1 Then
            data2(p, 1) = data1(i, 1)

            For k = LB_data1_2D + 1 To UB_data1_2D ' 2列目から 2次元最大要素までループ処理
              num(k - 2) = InStr(m, data1(i, k), vbLf) ' 配列 data1 の i 行 k 列目（都道府県列・県庁所在地）データを、Instr 関数で m（= 1）文字目から区切り文字（vbLf）がある最初の位置の値を動的配列 num(k - 2) に格納
              data2(p, k) = Left(data1(i, k), num(k - 2) - 1) ' 配列 data1 の i 行 k 列目（都道府県・県庁所在地）のデータを Left 関数で、最初の区切り文字位置のひとつ前（num(k - 2) - 1）までの文字列を取得、配列 data2 の p 行 k 列目に格納
'              data2(p, k) = Mid(data1(i, k), m, num(k - 2) - 1) ' 配列 data1 の i 行 k 列目（都道府県・県庁所在地）のデータを Mid 関数で、変数 m 文字目から最初の区切り文字位置のひとつ前（num(k - 2) - 1）までの文字列を取得、配列 data2 の p 行 k 列目に格納
            Next k
'            num(0) = InStr(m, data1(i, 2), vbLf)
'            num(1) = InStr(m, data1(i, 3), vbLf)

'            data2(p, 2) = Left(data1(i, 2), num(0) - 1)
'            data2(p, 3) = Left(data1(i, 3), num(1) - 1)
'            data2(p, 2) = Mid(data1(i, 2), m, num(0) - 1)
'            data2(p, 3) = Mid(data1(i, 3), m, num(1) - 1)

            p = p + 1
          End If

          If m <> LB_Split_arrstring_vbLf + 1 And m <> UB_Split_arrstring_vbLf + 1 Then
            data2(p, 1) = data1(i, 1)

            For k = LB_data1_2D + 1 To UB_data1_2D ' 2列目から 2次元最大要素までループ処理
              num(k) = InStr(num(k - 2) + 1, data1(i, k), vbLf) ' 配列 data1 の i 行 k 列目（都道府県列・県庁所在地）データを Instr 関数で、動的配列 num(k - 2) に格納されている区切り文字位置の次の位置（num(k - 2) + 1）から次の区切り文字（vbLf）がある位置の値を動的配列 num(k) に格納
              data2(p, k) = Mid(data1(i, k), num(k - 2) + 1, num(k) - num(k - 2) - 1) ' 配列 data1 の i 行 k 列目（都道府県・県庁所在地）のデータを Mid 関数で、動的配列 num(k - 2) に格納されている区切り文字位置の次の位置（num(k - 2) + 1）から次の区切り文字位置のひとつ前までの文字数（num(k) - num(k - 2) - 1）を指定して文字列を取得、配列 data2 の p 行 k 列目に格納
              num(k - 2) = num(k) ' 配列 data1 の i 行 k 列目（都道府県・県庁所在地）の区切り文字開始位置の値（num(k)）を、次の区切り文字位置の値（num(k - 2)）に更新（複数の区切り文字がある場合の繰り返し処理対応）
            Next k
'            num(2) = InStr(num(0) + 1, data1(i, 2), vbLf)
'            num(3) = InStr(num(1) + 1, data1(i, 3), vbLf)

'            data2(p, 2) = Mid(data1(i, 2), num(0) + 1, num(2) - num(0) - 1)
'            data2(p, 3) = Mid(data1(i, 3), num(1) + 1, num(3) - num(1) - 1)

'            num(0) = num(2)
'            num(1) = num(3)

            p = p + 1
          End If

          If m = UB_Split_arrstring_vbLf + 1 Then
            data2(p, 1) = data1(i, 1)

            For k = LB_data1_2D + 1 To UB_data1_2D ' 2列目から 2次元最大要素までループ処理
              data2(p, k) = Mid(data1(i, k), num(k - 2) + 1) ' 配列 data1 の i 行 k 列目（都道府県・県庁所在地）のデータを Mid 関数で、動的配列 num(k - 2) に格納されている最後の区切り文字位置の次の位置（num(k - 2) + 1）からデータ終端まで文字列を取得、配列 data2 の p 行 k 列目に格納
            Next k
'            data2(p, 2) = Mid(data1(i, 2), num(0) + 1)
'            data2(p, 3) = Mid(data1(i, 3), num(1) + 1)

            p = p + 1
          End If
        Next m

        For k = LB_num To UB_num
          num(k) = 0
        Next k
'        num(0) = 0
'        num(1) = 0
'        num(2) = 0
'        num(3) = 0

      End If

    Next i

  Case 4 ' Split 関数で配列に格納した各要素を、インクリメントしたカウンタ変数 s を使って 2次元配列 data2 の行番号を指定して各要素を格納

    Dim tmp As Variant ' Split 関数で返した配列の格納用変数
    Dim s As Long ' 2次元配列 data2 の行番号変数 p 用インクリメント変数

    p = 1
    s = 0 ' 0 で初期化

    ' LBound・UBound 関数格納用変数（メモリリーク対策）
    Dim LB_tmp As Variant ' LB_tmp = LBound(tmp)
    Dim UB_tmp As Variant ' UB_tmp = UBound(tmp)

    For i = LB_data1_1D To UB_data1_1D
      arrstring = data1(i, 2)

      ' Split・UBound 関数格納用変数へ代入（メモリリーク対策）
      Split_arrstring_vbLf = Split(arrstring, vbLf)
      UB_Split_arrstring_vbLf = UBound(Split_arrstring_vbLf)

      If UB_Split_arrstring_vbLf = 0 Or UB_Split_arrstring_vbLf = -1 Then
        For k = LB_data1_2D To UB_data1_2D
          data2(p, k) = data1(i, k)
        Next k
'        data2(p, 1) = data1(i, 1)
'        data2(p, 2) = data1(i, 2)
'        data2(p, 3) = data1(i, 3)

        p = p + 1
      End If

      If UB_Split_arrstring_vbLf > 0 Then

        For k = LB_data1_2D + 1 To UB_data1_2D
          ' Split 関数の第 1引数に区切り文字列がある 2次元配列を、第 2引数に区切り文字（vbLf）を指定
          ' 1次元配列として返した区切られた各文字列をバリアント型変数 tmp に格納
          tmp = Split(data1(i, k), vbLf)

        ' LBound・UBound 関数格納用変数へ代入（メモリリーク対策）
        LB_tmp = LBound(tmp)
        UB_tmp = UBound(tmp)

          ' 分割した都道府県・県庁所在地別の地方区分名を 2次元配列 data2 に格納
          If k = 2 Then ' For 文内で都道府県・県庁所在地別に行分割処理を行う際に地方区分名の代入は 1度だけでいいため、カウンタ変数 k の初期値 2（都道府県列）の時だけ地方区分名を代入処理
            For m = LB_tmp To UB_tmp ' 1次元配列 tmp の最大要素までループ処理
              data2(p + s, 1) = data1(i, 1) ' 2次元配列 data1 の地方区文名を 2次元配列 data2 に代入、2次元配列 data2 の行番号 p をインクリメントした変数 s を使って行番号指定（ループ開始処理時の変数 s の初期値は 0、ループ処理を抜けたら 0 で初期化）
              s = s + 1 ' 変数 s をインクリメントして次の行番号 p に加算
            Next m

            s = 0 ' 変数 s を 0 で初期化

          End If

          ' 分割した都道府県・県庁所在地名を 2次元配列 data2 に格納
          For m = LB_tmp To UB_tmp ' 1次元配列 tmp の最大要素までループ処理
            data2(p + s, k) = tmp(m) ' 1次元配列 tmp の都道府県名・県庁所在地名を 2次元配列 data2 に代入、2次元配列 data2 の行番号 p をインクリメントした変数 s を使って行番号指定（ループ開始処理時の変数 s の初期値は 0、ループ処理を抜けたら 0 で初期化）
            s = s + 1 ' 変数 s をインクリメントして次の行番号 p に加算
          Next m

          s = 0 ' 変数 s を 0 で初期化

        Next k

        p = p + UB_tmp + 1 ' 配列 data2 の行番号 p に、1次元配列 tmp の最大要素（UBound 関数使用）と 1 を足して次の配列 data2 への代入先行番号を更新（1次元配列 tmp の開始要素番号が 0 からのため + 1 で調整）

      End If

    Next i

  Case Else ' エラー処理（Sub プロシージャー終了）

    MsgBox "変数 val3 に指定された値（1～3）以外の " & val3 & " が代入されているため処理を終了します"
    Exit Sub

  End Select

' ----------

  ' 二次元配列 data2 の内容を、貼り付け先シートの Range で指定したセルから Resize で範囲を変更してセルに代入
  ws2.Range("A2").Resize(UB_data2_1D, UB_data2_2D).Value = data2
  ws2.Activate

  ' テスト用シートに出力する場合は以下のテスト用シートを格納したオブジェクト変数に変更
'  ws3.Range("A2").Resize(UB_data2_1D, UB_data2_2D).Value = data2
'  ws3.Activate

' ----------

  ' 実行速度計測結果表示
  Debug.Print Format(Timer - starttime, "0.00秒")
  
End Sub