質問: エクセル マクロ 定型ごと抜き出す こんばんは エクセルのマクロで困っているので教えていただけませんか? 前回の質問 http://oshiete.goo.ne.jp/qa/8803640.html におきまして、回答を頂き使用していたのですが、更に検索対象が増えて困っています。 前回は、sheet4 の m列 の 優良 と言う文字を検索し、a列~cl列までsheet5に抜き出していたのですが、今回 優良 と言う文字を含むもの、可と言う文字を含むもの 両方を抜き出したいと思います。 抜き出す範囲も a列~eo列と広くなりました。 一人では解決できないので、詳しい方教えていただけませんでしょうか。 よろしくお願い致します。
回答: こんばんは! 前回回答した者です。 前回のコードでちゃんと動いたのであれば、少しだけ手を加えれば大丈夫だと思います。 標準モジュールです。 コード内の「★」の行が手を加えた部分です。 sub sample2() dim lastrow as long application.screenupdating = false with worksheets("sheet4") .rows(1).insert .range("m1") = "ダミー" lastrow = .cells(rows.count, "m").end(xlup).row .rows(1).autofilter field:=13, criteria1:="優良", operator:=xlor, criteria2:="可" '★ if .cells(rows.count, "m").end(xlup).row > 1 then '←念のため range(.cells(2, "a"), .cells(lastrow, "eo")).specialcells(xlcelltypevisible).copy worksheets("sheet5").range("a1") '★ end if .autofiltermode = false .rows(1).delete end with application.screenupdating = true msgbox "処理完了" end sub こんな感じではどうでしょうか?m(_ _)m