条件に一致する行を削除する ： Excel
人口が指定数以下の場合、該当する行を削除します。
行を削除するには、EntireRow.Deleteメソッドを使います。
人口を調べるにはFor～Nextループを使い、一行ずつ調べますが、上から調べ削除した場合上にシフトされるので、下から調べ削除していきます。
入力されている最下位行を調べるには、Range("D65536").End(xlUp).Row を使います。
行を削除するには、EntireRow.Deleteメソッドを使います。
人口を調べるにはFor～Nextループを使い、一行ずつ調べますが、上から調べ削除した場合上にシフトされるので、下から調べ削除していきます。
入力されている最下位行を調べるには、Range("D65536").End(xlUp).Row を使います。
Homeに戻る > Excel セルのTipsへ
Excel実行画面
C2に入力した人口以下の行が削除されます。ここでは20万人以下の地域が削除されるようにしました。
実行ボタンをクリックするとVBAが開始されます。
20万人以下の行を削除したExcelシートです。
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
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
[関連リンク］
ワークシートの移動
セルの挿入とセルの削除
Homeに戻る > Excel セルのTipsへ
■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します
Copyright (c) Excel-Excel ! All rights reserved