複数の条件による高度なフィルター

複数の条件による高度なフィルター

ワークシートが3枚あります

  1. ConditionSheet: セルに条件値があるE5&E7

  2. SourceSheet: 完全なデータ

  3. TargetSheet: マクロを実行すると、値New worksheetに基づいてこの名前で作成されますconditionSheet

SourceSheet特定のデータを含む新しいワークシートを作成したいと思います。

ConditionSheet1番目のE5基準とE72番目の基準を持つセル

これに基づいて、「TargetSheet」という名前の新しいワークシートを作成したいと思います。

この場合、セルの値と一致するSourceSheetデータのみがコピーされ、その値はColumn FE5ConditionalSheetColumn HSourceSheetE7ConditionalSheet

2 番目の条件はオプションなので、IIF条件を渡すために関数を使用しました。

sourcesheet次のコマンドは、1 つの条件か 2 つの条件かに関係なく、すべてのデータをコピーします。

Sheets("SourceSheet").Range("A1:AB" & Worksheets("TargetSheet").Rows.Count).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=IIf(Sheets("ConditionSheet").Range("E7") = "", Sheets("ConditionSheet").Range("E5:E5"), Sheets("ConditionSheet").Range("E5:E7")), _
CopyToRange:=Sheets("TargetSheet").Range("A1"), _
Unique:=True

基準に基づいてデータのみをコピーしたい。

どうか私を導いてください。

(閲覧者および返信いただいたユーザーの皆様ありがとうございます)

関連情報