質問: vbaマクロ・・同一セルの検索と検索したセルの操作 vbaマクロ・・同一セルの検索と検索したセルの操作 vbaのほぼ初心者です。 決められたセル(たとえばe100)に入力された文字列と同一の文字列を その列内の上(e1~e99)で検索する。 そして、検索できれば(たとえばe30)そのセルがある行(行30)を削除する。 なお、複数検索されれば、検索されたすべてのセルに対応する行を削除する。 というようなことをvbaのマクロで作成したいです。 findメソッドとdo..loop whileを使って試行錯誤してみたのですが、うまくいきません。。 いい方法があれば、是非教えていただきたいです。 どうぞよろしくお願いいたします。
回答: 完全に寝ぼけた回答ですので前回の回答は無視してください。 (訂正版) sub 行削除() dim k as string, r as range k = [e100]: set r = [e1:e99] on error goto er do: r.find(k, lookat:=xlwhole).entirerow.delete: loop er: end sub