|
あと、こんなふうにも書けるんでは、と思いましたので、投稿
しておきます。
比較する2つのセルの値を変数に入れて処理しています。
Sub test2()
Dim i As Long, under As Long, n As Long
Const 列 = 1
Dim v1 As String, v2 As String
'1列目の入力セルの最下行番号
under = Cells(Rows.Count, 列).End(xlUp).Row
v2 = Cells(under, 列).Value
For i = under - 1 To 1 Step -1 '(最下行-1)から1行ずつ上昇
v1 = Cells(i, 列).Value
If v1 = v2 Then
n = n + 1 - (n = 0)
If n >= 5 Then
With Rows(i).Resize(5)
.Select '.Delete
Stop
End With
n = 0
End If
Else
n = 0
End If
v2 = v1
Next i
End Sub
(★チェックのため、削除行を Select して Stop しています。
続行するには [F5]キーを押してください。
実用時には、 .Select を .Delete に代え、 Stop をコメント化してください)
|
|