Расширенный фильтр с несколькими критериями

Расширенный фильтр с несколькими критериями

У меня есть три рабочих листа

  1. ConditionSheet: Имея значение условий в ячейке E5&E7

  2. SourceSheet: Полные данные

  3. TargetSheet: Когда я запускаю макрос, New worksheetсоздайте его с этим именем на основе conditionSheetзначения.

Я SourceSheetхочу создать новый рабочий лист с определенными данными.

В ConditionSheetячейке E5, имеющей 1-й критерий и E7имеющей 2-й критерий

На основе этого я хочу создать новый рабочий лист с именем «TargetSheet».

В этом случае копируются только те данные, значение SourceSheetкоторых Column Fсовпадает со E5значением ячейки в ConditionalSheet& Column Hзначение которых SourceSheetсовпадает со E7значениемConditionalSheet

Второй критерий является необязательным, поэтому я использовал IIFфункцию для передачи условия.

Следующая команда копирует все данные, независимо от sourcesheetтого, одно это условие или два.

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

Я хочу копировать только данные, основанные на определённых критериях.

Пожалуйста, помогите мне.

(Спасибо зрителям и ответившим пользователям)

Связанный контент