VBA を使用して Excel で複数の条件をフィルター処理する (AND 型と OR 型の両方)

この記事では、VBA を使用してデータセットから複数の条件をフィルタリングする方法を紹介します エクセルで。 AND の両方をフィルタリングする方法を学びます タイプと OR 複数の条件を入力してください。

VBA を使用して Excel で複数の基準をフィルター処理する 2 つの簡単な方法

ここにあるのは、Martin Bookstore という本屋の名前、本の種類、価格のデータ セットです。

今日の目的は、Visual Basic of Applications を使用して、このデータ セットから複数の条件をフィルタリングすることです。 (VBA ).

1. VBA を使用した Excel での AND 型の複数の条件のフィルター

まず、マクロを作成します AND の複数の条件をフィルタリングするには

たとえば、小説である本を除外してみましょう 価格が $25.00 を超えている .

⧭ VBA コード:

Sub Filter_Multiple_Criteria_AND_Type()

Count = 1
For i = 1 To Selection.Rows.Count

    If Selection.Cells(i, 2) = "Novel" And Selection.Cells(i, 3) >= 25 Then

        For j = 1 To Selection.Columns.Count

            Range("F4").Cells(Count, j) = Selection.Cells(i, j)

        Next j

        Count = Count + 1

    End If

Next i

End Sub

⧭ 出力:

ワークシートからデータ セットを選択し、このマクロを実行します (Filter_Multiple_Criteria_AND_Type ).

小説である本をフィルタリングします 価格が $25.00 を超えている セル F4 から始まる新しい範囲 .

⧭ メモ:

• 4番目 コードの行では、Cells(i, 2) =“Novel” を使用しました および Selection.Cells(i, 2)>=25 .

• ここでは、2 番目の値が必要でした 列 (本の種類 ) 「小説」と等しくなる そして第3回から 列 (価格 ) $25.00 以上 .
• これらは必要に応じて変更してください。
• たとえば、価格が $20.00 以上の書籍が必要な場合 $30.00 以下 、 Selection.Cells(i, 3)>=20 を使用 Selection.Cells(i, 3) <=30.
• 同じく 6 行目 、Range(“F4”) を使用しました フィルター処理されたデータをセル F4 から開始したかったためです .

• 適宜変更してください。

続きを読む: Excel で複数の条件をフィルタリング

類似の読み物

• Excel でカスタム フィルターを実行する方法 (5 つの方法)
• Excel でフィルターを追加する (4 つの方法)
• Excel フィルターのショートカット (3 つの簡単な使用方法と例)
• Excel でテキスト フィルターを使用する方法 (5 つの例)

2. VBA を使用した Excel での OR タイプの複数の条件のフィルタリング

次に、マクロを開発します OR の複数の基準をフィルタリングするには

たとえば、小説である本を除外してみましょう または価格が $25.00 を超えている 今回は。

⧭ VBA コード:

Sub Filter_Multiple_Criteria_Or_Type()

Count = 1

For i = 1 To Selection.Rows.Count

    If Selection.Cells(i, 2) = "Novel" Or Selection.Cells(i, 3) >= 25 Then

        For j = 1 To Selection.Columns.Count

            Range("F4").Cells(Count, j) = Selection.Cells(i, j)

        Next j

        Count = Count + 1

    End If

Next i
End Sub

⧭ 出力:

ワークシートからデータ セットを選択し、このマクロを実行します (Filter_Multiple_Criteria_OR_Type ).

小説である本をフィルタリングします または価格が $25.00 を超えている セル F4 から始まる新しい範囲 .

⧭ メモ:

• 4番目 コードの行で、Selection.Cells(i, 2) =“Novel” を使用しました または Selection.Cells(i, 2)>=25 .

• ここでは、2 番目の値が必要でした 列 (本の種類 ) 「小説」と等しくなる または3rdから 列 (価格 ) $25.00 以上 .
• これらは必要に応じて変更してください。
• 同じく 6 行目 、Range(“F4”) を使用しました フィルター処理されたデータをセル F4 から開始したかったためです .

続きを読む: Excel で複数のフィルターを適用する方法 [メソッド + VBA]

覚えておくべきこと

ここでは、複数の基準に対して 2 つの基準を使用しました。基準はいくつでも使用できます。すべての条件を And で結合するだけです または または 条件に応じて。

結論

これらの方法を使用すると、VBA を使用して Excel で複数の条件をフィルタリングできます。 、AND の両方 および または 種類。何か質問がありますか？お気軽にお問い合わせください。私たちのサイト ExcelDemy にアクセスすることを忘れないでください より多くの投稿と更新情報をご覧ください。

参考文献

• Excel で複数の列を個別にフィルタリングする方法
• Excel フィルターで複数のアイテムを検索する (2 つの方法)
• Excel でフィルターを削除する方法 (5 つの簡単で迅速な方法)
• Excel での日付によるフィルター (4 つの簡単な方法)