質問: .find("特定の文字列")の"特定の文字列"を右側へ増やしたりしてみたのですが、 そもそもの考え方が違うのだろうな...と思いました。 詳しい方、何卒よろしくお願い申し上げます。
回答: こんにちは! 色々やり方はありますが、一例です。 尚、1行目は項目行でデータは2行目以降にあるという前提です。 まずオートフィルタを使うやり方です。 sub sample1() dim lastrow as long dim myary myary = array("赤", "青", "紫") lastrow = cells(rows.count, "a").end(xlup).row range("a1").autofilter field:=1, criteria1:=myary, operator:=xlfiltervalues if cells(rows.count, "a").end(xlup).row > 1 then range(cells(2, "a"), cells(lastrow, "a")).specialcells(xlcelltypevisible).entirerow.select '//★// end if activesheet.autofiltermode = false end sub 次に、コツコツループさせる方法です。 sub sample2() dim i as long, k as long dim myrng as range dim myary myary = array("赤", "青", "紫") for i = 2 to cells(rows.count, "a").end(xlup).row for k = 0 to ubound(myary) if cells(i, "a") = myary(k) then if myrng is nothing then set myrng = cells(i, "a") else set myrng = union(myrng, cells(i, "a")) end if exit for end if next k next i if not myrng is nothing then myrng.entirerow.select '//★// end if end sub ※ どちらも行選択でやめています。 すぐに削除したい場合は「★」の行の >select を >delete に変更してみてください。m(_ _)m