
ワークシートが3枚あります
ConditionSheet
: セルに条件値があるE5
&E7
SourceSheet
: 完全なデータTargetSheet
: マクロを実行すると、値New worksheet
に基づいてこの名前で作成されますconditionSheet
。
SourceSheet
特定のデータを含む新しいワークシートを作成したいと思います。
ConditionSheet
1番目のE5
基準とE7
2番目の基準を持つセル
これに基づいて、「TargetSheet」という名前の新しいワークシートを作成したいと思います。
この場合、セルの値と一致するSourceSheet
データのみがコピーされ、その値はColumn F
E5
ConditionalSheet
Column H
SourceSheet
E7
ConditionalSheet
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
基準に基づいてデータのみをコピーしたい。
どうか私を導いてください。
(閲覧者および返信いただいたユーザーの皆様ありがとうございます)