条件に一致する行を削除する : Excel(エクセル)

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

Excel Tipsメニューに戻る

スポンサーリンク



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 Tipsメニューに戻る

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


Copyright (c) Excel-Excel ! All rights reserved