あるデータから集計作業を行う際に、しばしばいらない行がある事があります。
例えば、特定グループ以外の行を削除したい場合は、そんな事にあてはまるのではないでしょうか。
そこで、一行毎確認してその列を削除していると時間がかかってしまいます。
そこで今回は、【特定列の特定文字が入力されている行を削除する】を紹介したいと思います。
- 検索する列を特定
- 検索する内容をその行内で検索
- ヒットした行を削除
- なくなるまで繰り返す
Worksheets(“〇”).Select
Dim c As Range
Dim myRow As Long
With Range(“B:B”) ’検索列
Set c = .Find(“〇〇”) ’検索内容
Do While Not c Is Nothing
Rows(c.Row).Delete Shift:=xlUp ’行削除
Set c = .Find(“〇〇”)
Loop ’繰り返す
End With
Amazonミュージックを聞きながら作成しては如何でしょうか？
便利に集計作業ができるようになります。