質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.35%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

4678閲覧

ExcelマクロでAdvancedFilterでどこが構文エラーかわからない

huji

総合スコア16

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2020/10/02 13:34

発生している問題・エラーメッセージ

次のマクロで何回やっても、少し変えても、構文エラーと出ます。
Range("A15:H100).AdvancedFilter(Action:=xlFilterCopy, _
CriteriaRange:=Range("L6:L7"), _
CopyToRange:=Range("L16:H50"), Unique:=False)

CriteriaRangeがマークアップされます。
しかし、どこが間違っているのか全くわかりません。
どこか、間違いの箇所をご指摘いただければありがたいです。ヒントだけでも結構です。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

Range("A15:H100)Range("A15:H100")ですね。"が不足しています。

VBA

1Range("A15:H100").AdvancedFilter Action:=xlFilterCopy, _ 2 CriteriaRange:=Range("L6:L7"), _ 3 CopyToRange:=Range("L16:H50"), Unique:=False

投稿2020/10/02 13:49

meg_

総合スコア10760

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

huji

2020/10/02 16:12

コメントありがとうございます。 Range("A15:H100") としましたが 結果は変わりませんでした。
meg_

2020/10/02 23:40

AdvancedFilter の後ろの ( と最後の ) も不要です。私の回答をコピペしてもエラーが出ますか?
huji

2020/10/03 01:28

megさん、たびたび、ありがとうございます! コピペしてやってみて、まだ実行時エラーがでましたが、 抽出コピー範囲が、Range("L16:H50")になっていて、H450が間違っていることに気が付きました。 これでやっと、仕事を進めることができます。 本当にありがとうございました。
huji

2020/10/03 01:32

H50ですよね、これがL16より前であり、間違っていることがわかりました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.35%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問