Range（）.AutoFilterでのメソッドの失敗について。

Question

セル（Cells1,5）に入力してある内容でオートフィルターをかける為、以下のコードを作成しました。
ところが「メソッドの失敗」とのエラーが発生してしまいます。

※「ここでメソッドの失敗が起こります」と入力しました。

Dim ER As Long
Dim EC As Long

ER = Cells(Rows.Count, 3).End(xlUp).Row
EC = Cells(2, 1).End(xlToRight).Column

Range(Cells(2, EC), Cells(ER, EC)).AutoFilter Field:=2, Criteria1:=Cells(1, 5)’ここでメソッドの失敗が起こります

セルの参照ではフィルターをかけることはできないのかと思い、Criteria1:="文字列"としましたが結果は同じでした。

ほとんどコピペで「フィルターの条件を解除するコード」を作成したところ、こちらはエラーが起きなかったので、恐らく（ Field:=2, Criteria1:=Cells(1, 5)）の部分に誤りがあるのではと思いますが、他のサイトなどを拝見しても原因がわかりませんでした。

参考にしたサイトはこちらです。（http://officetanaka.net/excel/vba/tips/tips155.htm）

念のため上記に記した「フィルターの条件を解除するコード」はこちらです。

Dim ER As Long
Dim EC As Long

ER = Cells(Rows.Count, 3).End(xlUp).Row
EC = Cells(2, 1).End(xlToRight).Column

  Range(Cells(2, EC), Cells(ER, EC)).AutoFilter

よろしくお願いします。

Answer 1

Range(Cells(2, EC), Cells(ER, EC)).AutoFilter Field:=2, Criteria1:=Cells(1, 5)’ここでメソッドの失敗が起こります

上記のコードで、Range(Cells(2, EC), Cells(ER, EC))はEC列目の1列分の範囲になります。
セル範囲が1列分しかないのに、Field:=2で2列目を検索してフィルターをかけろとエクセル君に命令しているので、エクセル君は困ってしまってエラーを出します。

参考にしたリンク先にも下記のように書いてるので、

しかし、ここには、表全体のアドレスではなく、表内のセルを1つだけ指定することをお勧めします。もし、対象の表がセルA1から始まっているのでしたら「Range("A1")」と書けばいいです。

表内のセル一つだけ指定すればいいです。で、その表内で何列目を検索するかを指定します。
下記の1行でいいはずです。Field:=2のところは検索したい列を指定してください。

Range(Cells(2, 1)).AutoFilter Field:=2, Criteria1:=Cells(1, 5)

Comments

[ice930]

ご指摘の通りでした！
解決しました！ありがとうございました！！