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

C列の下４桁の数字が　「　0926　」　以下の行から上へ、　「　Rows(2)　」　までを全部削除するにはどのようなコードになりますでしょうか　？

下記コードの線の中に作成したいと思ってます。

下記例の場合は、「　Rows(2)　」　～　「　Rows(4)　」　を削除することになります。

C列の数字は必ず、7桁か8桁です。（上２桁は月数字1～12のためです）
下行へ行くに従って、必ず数字は増えていきます。

何卒、ご教示お願い致します。
---------------------------------
C
数字
4030907
4030914
4030923
4030931
4030940
4030947

---------------------------------
Private Sub 指定数字以下の行を削除()
Dim i As Integer
On Error Resume Next
For i = 1 To Worksheets.Count - 1
'---------

'---------
Next i
End Sub

No.1 ベストアンサー 回答者： papayuka 回答日時： 2007/05/09 08:16

例外等は考慮してませんが、、、

こんな感じ？

With Worksheets(i)
　Do While Val(Right(.Range("C2"), 4)) <= 926 And .Range("C2") <> ""
　　　　　 .Rows(2).Delete
　Loop
End With

この回答へのお礼

ご返事、遅くなりまして、申し訳ありませんでした。
ご回答、誠に有難うございました。
バッチリでした。

お礼日時：2007/05/09 23:24