みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

オートフィルタのVBAについて

初めまして、オートフィルタに係るVBAについて質問させてください!

A列にりんごやぶどうなど果物の名前が入っているデータがあり、K列までデータが
入っています。(B列以降は果物の個数や値段のデータなので、果物の名前はA列のみです。)うち、「りんご」、「みかん」、「もも」、「いちご」のデータのみを抽出したいため、以下のようなVBAを記述しました。
しかし、実行したところエラーコード1004「RangeクラスのAutofillメソッドが失敗しました。」というメッセージが出てきたため、処理ができませんでした。
何か範囲の指定方法が間違っているのでしょうか…?
ご教示いただけるととても嬉しいです。
よろしくお願いいたします。


Rows("1:1").AutoFilter
ActiveSheet.Range("A1:K" & Cells(1).CurrentRegion.Rows.Count).AutoFilter Field:=1, Criteria1:= _
Array("りんご", "みかん", "もも", "いちご"), Operator:=xlFilterValue

投稿日時 - 2017-09-05 13:19:45

QNo.9371187

困ってます

質問者が選んだベストアンサー

>何か範囲の指定方法が間違っているのでしょうか…?

フィルタを実行中は「連続データの作成(AutoFill)」は機能しません。

オートフィルタでフィルタリング中にAutoFillを呼び出すと、常にエラーになります。

AutoFillを実行するには、フィルタを解除(すべて表示)する必要があります。

フィルタで条件を絞った状態で連番を振る場合は、VBAで「条件に合う行にのみ、1セルごとに、連番の数値を順にセットして行く」と言う処理を自前で行なう必要があります。

投稿日時 - 2017-09-05 14:20:07

お礼

御礼が遅くなって申し訳ありません。ご回答いただき、本当にありがとうございます!確かに、既にAutoFilterを設定しているので、更にAutoFilterを設定する必要はありませんでした…!m(_ _)m

投稿日時 - 2017-09-13 10:46:29

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

おしい。最後の最後で「s」が足りない。
誤:xlFilterValue

正:xlFilterValues

投稿日時 - 2017-09-05 18:09:42

お礼

御礼の返信が遅くなって大変申し訳ありません!お忙しいところご回答いただいてありがとうございます(^^)「s」を入れたら無事に処理ができました!!!

投稿日時 - 2017-09-13 10:50:36

あなたにオススメの質問