414行目から1行目までを調べてB列が同じならば下の行を削除していきます。
Sub かぶり削除()
Dim L As Integer
L = 414 '初期値
Do While L > 1
'MsgBox Cells(L, 2).Value
If Cells(L, 2).Value = Cells(L - 1, 2).Value Then
'Cells(L - 1, 9).Value = Cells(L, 8).Value
Rows(L).Delete Shift:=xlUp
End If
L = L - 1
Loop
End Sub
コメントする