条件に一致する行を削除する：Excel

人口が指定数以下の場合、該当する行を削除します。
行を削除するには、EntireRow.Deleteメソッドを使います。
人口を調べるにはFor～Nextループを使い、一行ずつ調べますが、上から調べ削除した場合上にシフトされるので、下から調べ削除していきます。
入力されている最下位行を調べるには、Range("D65536").End(xlUp).Row を使います。

Excel実行画面

C2に入力した人口以下の行が削除されます。
ここでは20万人以下の地域が削除されるようにしました。
実行ボタンをクリックするとVBAが開始されます。
地域別の人口Excelデータ

20万人以下の行を削除したExcelシートです。
人口が20万人以上の地域

Excel VBAコード

指定人口が入力されていない場合、エラーメッセージが表示されます。
Forループは、Step -1 とし下から調べるようになっています。

'実行ボタン
Private Sub CommandButton1_Click()
    Dim llast As Long

    If Range("C2") = "" Then
        MsgBox "削除する人口を入力してください。"
        Exit Sub
    End If

    llast = Range("D65536").End(xlUp).Row
    For i = llast To 5 Step -1  '下から
        If Cells(i, 4) <= Range("C2") Then
            Cells(i, 4).EntireRow.Delete
        End If
    Next
    MsgBox "終了しました。"
End Sub

[関連リンク］
ワークシートの移動
セルの挿入とセルの削除

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

条件に一致する行を削除する ： Excel

Excel実行画面

Excel VBAコード

条件に一致する行を削除する： Excel