VBA マクロ 分類項目列の結合方法

Question

【やりたいこと】
地区ごとにセルの結合を行う。
⇒A2～A3の結合
A4～A7の結合

データが増えても、自動で地区ごとに結合されるマクロを作りたいです。

【作成したコード】
Dim i As Integer
Dim c As Integer

c = Cells(1, 3).End(xlDown).Row

For i = 2 To Cells(1, 3).End(xlDown).Row
If Cells(i, 1) <> "" And Cells(i, 1).End(xlDown) <> "" Then
Range(Cells(i, 1), Cells(i, 1).End(xlDown).Offset(-1, 0)).Merge

Else: Range(Cells(i, 1), Cells(c, 1)).Merge
End If

Next

【課題】
上記のコードだと、地区列がすべて関東で結合されてしまいます。
for文のループ処理がうまくいっていないようです。

良い方法はありますでしょうか？

Answer 1

Else の行がいらないんじゃないですか？

---

＜追記＞
こんな感じでどうでしょうか。

Sub sample()
    Dim i As Integer
    For i = 2 To Cells(1, 3).End(xlDown).Row
        If Cells(i, 1) = "" Then Union(Cells(i, 1), Cells(i - 1, 1).MergeArea).Merge
    Next
End Sub

Comments

[mhoby_vt]

前回のご回答に引き続き、ご回答ありがとうございます。
Elseの行をなくすと、関東は結合ができますが、東北が結合されない状態となってしまいます。
End(xldown)に値がある場合はTrue、値がない場合はFalseという条件のため、
一番最後の地区が結合されない状態になってしまうようです。

[jinoji]

なるほど、そういうことですね。
少し直したコードを載せました。

[mhoby_vt]

ありがとうござます！できました！
大変助かりました。