質問: 指定した文字があった場合、その行を削除するマクロが欲しいです 指定した文字があった場合、その行を削除するマクロが欲しいです sheet1(sheet1以外は対象外)のb列に xyz という文字があった場合、その行をすべて削除する というマクロはどのように作ればいいでしょうか? お時間ある方アドバイスいただければ幸いです。
回答: 手抜きですがこんな感じでどうでしょう。 削除する行が多いなら画面更新を停止した方が良いでしょう。 sub sample() sheets("sheet1").select do while (true) columns("b:b").select set myselect = selection.find(what:="xyz") if myselect is nothing then exit do rows(myselect.row).select selection.delete shift:=xlup loop end sub