質問: vbaオートフィルターで該当要素がない時 '明細からAを含むもの削除--------------------------- With Range("A1").CurrentRegion Range("A1", .Cells(.Count)).AutoFilter Field:=7, Criteria1:="*A*", Operator:=xlFilterValues vbaにて上記のようにオートフィルターをかけ、 Aを含む文字列がある時 →それを削除してからShowAllData Aを含む文字列がない時 →何もせずShowAllData としたいです。 いろいろやってみても上手くいがず、アドバイス頂けますと幸いです。。。
回答: なぜ フィルターを かけるのでしょうか For I = Cells(Rows.Count, "G").End(xlUp).Row To 2 Step -1 Set Rng = Cells(I, "G").Find("A") If Not Rng Is Nothing Then Rows(I).Delete Shift:=xlUp End If Next これで G列に "A"を 含む文字がある行は 削除して 上に詰めます