C列の下４桁の数字 「0926」 以下の行を削除するには？（例外）

質問

似たような質問で、申し訳ございません。
http://oshiete1.goo.ne.jp/qa2985040.html
今回は、以前にしました質問の、　「　例外の場合　」　の質問でございます。（前回質問は、解決しております）

C列の下４桁の数字　「0926」　以下の行を削除したいと思っております。

下記コードで実行した場合、下記例の場合は、「　Rows(2)　」　～　「　Rows(4)　」　はきちんと削除します。

このコードを
C列のデータのある最終行から上へ順に参照して行き、最初に　「　0926　」以下の数字があったら、その行から上へ
「　Rows(2)　」　までの行を全部削除するにはどのようなコードになりますでしょうか　？
つまり、下記実行後のように「　Rows(2)　」　～　「　Rows(9)　」 を削除するにはどのようなコードになりますでしょうか　？

C列の数字は必ず、7桁か8桁です。（上２桁は月数字1～12のためです）

何卒、ご教示くださいませ。

---------------------------------------------
Private Sub 指定数字以下の行を削除()

Dim i As Integer

On Error Resume Next
For i = 1 To Worksheets.Count - 1
'---------
With Worksheets(i)
Do While Val(Right(.Range("C2"), 4)) <= 926 And .Range("C2") <> ""
.Rows(2).Delete
Loop
End With
'---------
Next i

End Sub
---実行前------------------------------------
C
数字
4030907
4030914
4030923
4030931
4030940
4030947
4030914
4030923
4030931
4030940
---実行後------------------------------------
C
数字
4030931
4030940

回答No.2

merlionXX · ベストアンサー

#1です。
修正します。（変数iの宣言が重複していました。）

Private Sub 指定数字以下の行を削除()
Dim i As Integer, n As Long, lr As Long
For i = 1 To Worksheets.Count - 1
With Worksheets(i)
lr = .Cells(.Rows.Count, "C").End(xlUp).Row
For n = lr To 2 Step -1
If Val(Right(.Cells(n, "C"), 4)) <= 926 And .Cells(n, "C") <> "" Then
.Rows("2:" & n).Delete
Exit For
End If
Next n
End With
Next i
End Sub

お礼

ご回答誠に有難うございました。
俊足でした、当方にはまだ、未知なことです。

回答No.1

merlionXX

Private Sub 指定数字以下の行を削除()
Dim i As Integer, i As Long, lr As Long
For i = 1 To Worksheets.Count - 1
With Worksheets(i)
lr = .Cells(.Rows.Count, "C").End(xlUp).Row
For n = lr To 2 Step -1
If Val(Right(.Cells(n, "C"), 4)) <= 926 And .Cells(n, "C") <> "" Then
.Rows("2:" & n).Delete
Exit For
End If
Next n
End With
Next i
End Sub

こんな感じかな