質問: excel マクロ オートフィルで抽出後 削除したい 始めまして。 マクロ初心者です。 オートフィルで抽出後に抽出したものだけを削除するマクロを作成してますが、うまくいきません。 a列に「○」が入っているものだけを抽出 ↑このマクロまではできていますが、 その後の削除が上手くいきません。 教えて下さい。
回答: こんばんは。 解答はすでに出ていますから、参考程度に書いてみました。 私には、specialcells の使い方は、少し難しいような気がしました。 .specialcells(xlcelltypevisible).rows.count =1 のときは、タイトル行が存在しているだけです。 .offset(1).resize(.rows.count - 1) は、タイトル行を削除しないようにしています。 sub testsort_delete() dim lngrow as long with activesheet 'エラーが発生したら、errhandler に飛ぶ on error goto errhandler .range("a1").currentregion.autofilter _ field:=1, _ criteria1:="○" '○の行の削除の方法 with .autofilter.range 'すでに削除されてしまっているときは、削除を行わない if .specialcells(xlcelltypevisible).rows.count > 1 then .offset(1).resize(.rows.count - 1).specialcells(xlcelltypevisible).entirerow.delete end if end with errhandler: if err.number > 0 then msgbox err.number & ": " & err.description, 48 end if .range("a1").currentregion.autofilter end with end sub