質問: excelで、特定の文字を検索して、検索した文字の下の行を削除するvbaをご教授願います。 excelで、特定の文字を検索して、検索した文字の下の行を削除するvbaをご教授願います。 やりたいことは、a列の ピックアップと入力してあるセルを検索して、ピックアップ 下のデーターが入力してある行を全て削除したいのですが、現在 範囲を指定して 削除はできるのですが、データーの増減で削除位置が変わってしまいます。 特定文字(ピックアップ)を検索して、特定文字(ピックアップ) 下のデーターが入力してある行を削除するコードが分からず困っています。 お分かりになる方、ご教授願います。 sub ピックアップ下削除() worksheets("納品伝票データー").range("a333:bt1000").clear end sub 検索する列は、a列の ピックアップと入力してあるセルです。 ピックアップしたのデーターは、500件くらいあり増減します。 よろしくお願いいたします。
回答: こんばんは いまいち文章がわからないところがありますが、こんな感じでしょうか? sub sample_12101676() dim f, rw const s = "ピックアップ" '←特定文字?? set f = columns(1).find(what:=s, lookin:=xlvalues, lookat:=xlwhole) if cells(1, 1).value = s then set f = cells(1, 1) if not f is nothing then rw = activesheet.usedrange.specialcells(xllastcell).row - f.row if rw > 0 then f.offset(1).resize(rw).entirerow.clear end if end sub