以下のコードでオートフィルターの絞込を行っているのですが、後のFor文の中のVLOOKUPで絞り込んだ箇所のみで操作したいです。どんなコードを追加したらいいでしょうか。
ws.Range("A7:P" & intRowEndA).AutoFilter 2, Criteria1:="*ABC*"
ws.Range("A7:P" & intRowEndB).AutoFilter 7, Criteria1:="<>0", Operator:=xlAnd, Criteria2:="<> "
wsはワークシート
intRowEnd Aなどは表の最終行を取得しております。
No.2ベストアンサー
- 回答日時:
こんにちは
intRowEndA と intRowEndB に関しては既出の通り。
実際に、何をしたいのか不明なので、質問の文章のみからの推測ですけれど・・・
>後のFor文の中のVLOOKUPで絞り込んだ箇所のみで操作したいです。
具体的な内容が不明なのでなんとも言えませんが、VLOOKUPの元になる表(=セル範囲)は連続していないと無理なようです。
なさりたい内容にもよりますが、
・まとめてフィルターオプションで検索する
あるいは、
・最初から複数条件でまとめて絞り込むような関数に切り替える
などの方法が考えられます。
あくまでも「VLOOKUP関数」に拘るのであれば、どこかに一時的に絞り込まれたデータの表を作成(=コピー)して、
・そちらの表を基にVLOOKUP関数を用いる
ようにすれば問題なく検索できるでしょう。
あるいは、シート関数などを用いずに、
・VBAでごく普通に条件をチェックしていく
のでも十分そうには思えますけれど…?
No.1
- 回答日時:
intRowEndA と intRowEndB は範囲として違いがあるために2つ存在しているのでしょうか?
あと質問に対して回答するなら、
>後のFor文の中のVLOOKUPで絞り込んだ箇所のみで操作したい
この部分が不明確な気がします。
抽出した値を検索したいのか、抽出した範囲を検索範囲にしたいのかでも違うのではないかと初級者ジジィは思います。
⇒単なるボケかも知れませんけど。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- その他(プログラミング・Web制作) Pythonを勉強しています。 5 2023/08/25 09:51
- Visual Basic(VBA) エクセル VBA 処理スピードを上げたいのですが。 6 2023/03/31 20:52
- Excel(エクセル) ハイパーリンクの削除について 2 2022/11/10 07:32
- Excel(エクセル) vbaで列幅について 1 2022/11/15 08:31
- Excel(エクセル) vba シート名の一覧を2列に分けるには 5 2023/04/24 08:56
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Visual Basic(VBA) エクセルVBAコピー 2 2022/06/08 21:45
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAで文字列を数値に変換したい
Excel(エクセル)
-
オートフィルターをかけ、#N/A以外で絞込みするVBA記述をご教示ください
Excel(エクセル)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
-
4
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
5
エクセルでフィルターをかけた列にデータを貼り付けする方法
Excel(エクセル)
-
6
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
7
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
8
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
9
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
10
Excelでフィルターのかかっているときの最終行の取り方。
Excel(エクセル)
-
11
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
12
Excel VBAでオートフィルタで抽出した列データを別シートの最終行にコピーするには
Visual Basic(VBA)
-
13
Excelで数値→文字列変換で指数表示になったものをいっぺんに直したい
Excel(エクセル)
-
14
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
15
VBA 数式を残して値をクリアについて
Excel(エクセル)
-
16
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
17
エクセル マクロ名にブック名が付いた場合の修正方法
Excel(エクセル)
-
18
マクロで#N/A"のエラー行を削除したい"
Visual Basic(VBA)
-
19
【Excel VBA】一番右端セルまでの範囲指定の仕方(途中に空白セルあり)
Visual Basic(VBA)
-
20
VBA 空白行に転記する
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロの「SaveAs」でエラーが...
-
マクロ実行後に別シートの残像...
-
VBA 別ブックからの転記の高速...
-
EXCELのSheet番号って変更でき...
-
VBA 実行時エラー1004 rangeメ...
-
複数シートの複数列に入力され...
-
VBA 空白行に転記する
-
VBA別シートの最終行の次行へ転...
-
1004RangeクラスのPasteSpecial...
-
Count Ifのセルの範囲指定に変...
-
ExcelのVBマクロを、バックグラ...
-
アクセスからエクセルへ出力時...
-
Changeイベントで複数セルへの...
-
同じ作業(データコピー・貼付...
-
エクセル 複数シートの同一セ...
-
楽天RSSからエクセルVBAを使用...
-
エクセルVBA:軸の設定でエラー...
-
【VBA】データを各シートに自動...
-
vba 連続するとうまく作動せず
-
まとめシートから集計シートへA...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロの「SaveAs」でエラーが...
-
VBA 空白行に転記する
-
EXCELのSheet番号って変更でき...
-
マクロ実行後に別シートの残像...
-
VBA 別ブックからの転記の高速...
-
VBA別シートの最終行の次行へ転...
-
【VBA】特定の条件でセルをコピー
-
Count Ifのセルの範囲指定に変...
-
100万件越えCSVから条件を満た...
-
楽天RSSからエクセルVBAを使用...
-
VBAコードについて
-
Changeイベントで複数セルへの...
-
VBAで変数の数/変数名を動的に...
-
Excel2013で切り取り禁止
-
グラフマクロで系列を変数にす...
-
VBA 実行時エラー1004 rangeメ...
-
ExcelのVBマクロを、バックグラ...
-
Unionでの他のシートの参照につ...
-
Excel VBA オートフィルターで...
-
アクセスからエクセルへ出力時...
おすすめ情報