[[20200514160410]]　『重複してたら文字消す（複数条件）』（初心者）　ページの最後に飛ぶ

『重複してたら文字消す（複数条件）』（初心者）

A列の数字がA列の上下の数字と重複しているかつB列が空白な場合に行を削除したいのですが、そのマクロのコードがわかる方いらっしゃいますでしょうか。
下の図だとA列の5は消えない、6は一番上の6の行が消える、7は下の7の行が消えるという感じです。（Aは日付の欄になっています）

A B
1
2
3
4
5 昼
5 夜
6
6 昼
6 昼
7 夜
7
8

＜使用 Excel：Office365、使用 OS：Windows10 ＞

 参考に

 Sub Test()
    Dim i As Long
    For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
        If Cells(i + 1, "A").Value = Cells(i, "A").Value Then
            If Cells(i + 1, "B").Value = "" Then Rows(i + 1).Delete
            If Cells(i, "B").Value = "" Then Rows(i).Delete
        End If
    Next i
 End Sub

（ピンク） 2020/05/14(木) 16:42

ピンクさんありがとうございました！
できました。助かりました。
（初心者） 2020/05/14(木) 16:58

コメント返信：

[ 一覧(最新更新順) ]

[[20200514160410]] 『重複してたら文字消す（複数条件）』（初心者） ページの最後に飛ぶ

[[20200514160410]]　『重複してたら文字消す（複数条件）』（初心者）　ページの最後に飛ぶ