EXCEL マクロの実行時エラーについて

質問

EXCELマクロでフィルター設定しましたが実行時エラー'1004' になってしまいます。

下記の例のようにフィルターの範囲指定を、"$A$1:$O$RowCounter" としました。
RowCounter の部分を例えば 1000 のような数字にすればエラーにはならないのですが、変数の指定がうまくいきません。

良い方法はないでしょうか？

.Dim RowCounter As Long

RowCounter = 1

Do
RowCounter = RowCounter + 1

： この部分のマクロ省略

Loop While Cells(RowCounter + 1, 1).Value <> ""

ActiveSheet.Range("$A$1:$O$RowCounter").AutoFilter Field:=11, Criteria1:="商品A" ←ここで実行時エラーが発生する。

回答No.2

keithin · ベストアンサー

変数を""の中に書いたら変数になりません。

間違い：
ActiveSheet.Range("$A$1:$O$RowCounter").AutoFilter Field:=11, Criteria1:="商品A"

とりあえず正解：
ActiveSheet.Range("$A$1:$O$" & RowCounter).AutoFilter Field:=11, Criteria1:="商品A"

＃以下余談

一般的な作成例その１：
通常は最終行を指定する必要はありません。

sub macro1()
　range("A:O").autofilter field:=11, criteria1:="商品A"
end sub

一般的な作成例その２：
１行目からわざわざ１行ずつ調べていくのは、超効率悪いです。

sub macro2()
　dim LastRow as long
　lastrow = cells(rows.count ,"A").end(xlup).row
　range("A1:O" & lastrow).autofilter field:=11, criteria1:="商品A"
end sub

同様に、ループの中でやってるほかの「内緒の」何か処理についても、一括で出来ないか工夫します。
必要に応じて別途ご相談を投稿してみてください。ここで「ついでに」聞かないでくださいね。

お礼

省略部分は１行１行チェックして計算するマクロが組んであります。

今回はアドバイス頂いたその２で行いたいと思います。

大変助かりました。ありがとうございます。

回答No.1

mar00

"$A$1:$O$" & RowCounterにすればよいのではないでしょうか。

お礼

これでOKになりました。

ありがとうございます。