質問: エクセル マクロ セルの文字と同じ文字のある行を抽出 こんにちは、マクロでの行の抽出について教えて下さい。 q1に文字が入っていて、その文字と同じ文字のある行を全て下行に表示させるにはどうしたら良いでしょうか? 検索列はe7列でから下行に行数は度々変わります。 列数はn列までをp7にボタンクリックで表示させたいです。 詳しい方、よろしくお願い致します。
回答: こんばんは! 手っ取り早いのはオートフィルタですが、画像を拝見するとタイトル行がないようなので、別案(値の操作)にしてみました。 一例です。 sub sample1() dim i as long dim cnt as long, lastrow as long '//▼p7以下のデータを一旦消去// lastrow = cells(rows.count, "p").end(xlup).row if lastrow > 6 then range(cells(7, "p"), cells(lastrow, "y")).clearcontents end if '//▼ココから操作// cnt = 6 for i = 7 to cells(rows.count, "e").end(xlup).row if cells(i, "e") = range("q1") then cnt = cnt + 1 cells(cnt, "p").resize(, 10).value = cells(i, "e").resize(, 10).value end if next i msgbox "完了" end sub こんな感じではどうでしょうか?m(_ _)m