特定のセルの行を削除

Question

前提・実現したいこと

特定の条件で行を削除したいです。
特定の条件：対象のセルが空白・対象のセルに色がついている。

結合は維持したまま削除しようとしております。
下記に挿入しました画像のセルでいえばB23・24,B25・26,B27・28 を削除したいです。

発生している問題・エラーメッセージ

現状セルの結合があるせいか、自分が思ったようにセルを対象に選択できない状態です。

該当のソースコード

    Dim ws As Worksheet
    Set ws = Worksheets(2)
    For num4 = Cells(Rows.Count, 22).End(xlUp).Row To 13 Step -1
        If ws.Range("B" & num4).Interior.ColorIndex = 40 Then
            If ws.Range("B" & num4) = "" Then
                Rows(num4).Delete
            End If
        End If
    Next num4

    MsgBox "ok"

試したこと

結合セルかどうかの判断をネストをしてみましたが、
上手く動きませんでした。

補足情報（FW/ツールのバージョンなど）

Answer 1

指定したセルを含む結合範囲は

Range("B26").MergeArea

のようにすることで指定できます。
これを利用し、

Range("B26").MergeArea.EntireRow.Delete

のようにすることでその結合範囲を基準とした行全体の削除が可能です。

複数行同時削除されますので For で回しているカウンターは適宜調整してあげるべきかもしれません。

Range("B26").MergeArea.Row

で結合範囲の1行目の行番号が得られますので、それを活用するといいかと思います。

Comments

[退会済みユーザー]

お返事が遅くなり申し訳ございません。
1行ずつではなく、結合された部分の行が一気に消えて感激しております。

ありがとうございました！