高度なフィルタ基準を使用した Excel VBA の例 (6 ケース)

通常はフィルタを使用します Microsoft Excel で バルク データから特定のデータを分離する必要がある場合。高度なフィルターは、いくつかの追加機能を追加します。 Excel VBA には、この高度なフィルター オプションもあります。 Excel VBA の例をいくつか示します。 ここで高度なフィルター基準を使用します。

条件付きの Excel VBA 高度なフィルターの 6 つの例

6 Excel VBA の例 高度なフィルター基準はこのセクションに表示されます。

この目的のために、次のデータセットを使用します。

例 1:現在の場所でデータをフィルター処理する Excel VBA

VBA マクロを適用します 基準に基づいてデータをフィルタリングし、フィルタリングされたデータを現在の場所に配置します。

B16:E17 の範囲内 、基準を設定します。

ステップ 1:

• まず、デベロッパー に移動します タブ
• マクロの記録をクリックします リボンから。
• 新しいダイアログ ボックスが表示されます。そこでマクロの名前を設定し、OK を押します .

ステップ 2:

• [マクロ] をクリックします。
• マクロの選択 そして足を踏み入れる

ステップ 3:

• 次の VBA をコピーします。 コードを作成し、これをコマンド モジュールに配置します。

Sub Filter_Criteria()
Dim data As Range
Dim criteria As Range
Set data = Range("B4:E14")
Set criteria = Range("B16:E17")
data.AdvancedFilter xlFilterInPlace, criteria
End Sub

ステップ 4:

• ここで F5 を押します ボタンでコードを実行します。

シカゴ の売上を表示する基準を設定しました ストアのみで、結果は次のとおりです。

ここに、データと基準が同じシートにあります。

続きを読む: 高度なフィルタを適用して Excel の別の場所にコピーする方法

例 2:データと基準が異なるシートで指定されている場合の高度なフィルター用の Excel VBA

この例では、基準とデータが異なるシートに存在する場合の状況に対処する方法を示します。

データは Criteria_Different_Sheet という名前のシートにあります 基準は Criteria シートに記載されています .

ステップ 1:

• Alt+F11 を押します コマンドモジュールに入ります。
• 以下のコードをコマンド モジュールに挿入してください。

Sub Filter_Criteria_2()
 Dim data As Range
 Dim criteria As Range
   Set data = Sheets("Criteria_Different_Sheet").Range("B4:E14")
   Set criteria = Sheets("Criteria").Range("B4:E5")
   data.AdvancedFilter xlFilterInPlace, criteria
End Sub

ステップ 2:

• F5 を押します コードを実行します。

このように、別のシートで条件が指定されている場合、データをフィルター処理できます。

続きを読む: Excel の 1 つの列で複数の基準に基づいて高度なフィルターを適用する

例 3:データをフィルタリングして同じシートの別の場所に貼り付ける Excel VBA

フィルタリングされたデータを別の場所に貼り付けたい場合は、以下の手順に従ってください。

ステップ 1:

• Alt+F11 を押します コマンドモジュールに入ります。
• コマンド モジュールに次のコードを記述してください。

Sub Filter_Criteria_3()
 Dim data As Range
 Dim criteria As Range
Set data = Range("B4:E14")
Set criteria = Range("B16:E17")
data.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=criteria, CopyToRange:=Range("G4:J14")
End Sub

ステップ 2:

• F5 を押します ボタンをクリックすると、コードが実行されます。

フィルタリングされたデータが別の場所に貼り付けられていることを確認します。 CopyToRange コマンドは、データを貼り付ける別の場所を指定しています。

関連コンテンツ: 高度なフィルターを使用してデータを Excel の別のシートにコピーする方法

類似の読み方:

• Excel VBA:範囲内の複数の基準を持つ高度なフィルター (5 つのメソッド)
• 高度なフィルターを使用して Excel で空白セルを除外する方法 (3 つの簡単なトリック)
• Excel の高度なフィルタ [複数の列と条件、数式とワイルドカードを使用]

例 4:Excel VBA を使用して一意のデータのみをフィルター処理する

この Excel VBA から一意のデータを取得できます アドバンスフィルター。このプロセスでは、最初の 出現はデータセットに存在し、2 回目以降の出現は削除されます。

ステップ 1:

• Alt+F11 を押してコマンド モジュールに入ります .
• 次のコードをコマンド モジュールに追加してください。

Sub Filter_Criteria_4()
 Dim data As Range
 Dim criteria As Range
Set data = Range("B4:E14")
Set criteria = Range("B16:E17")
data.AdvancedFilter xlFilterInPlace, criteria, , True
End Sub

ステップ 2:

• F5 を押してコードを実行します .

1位をマークしました 緑色と 2 番目 による発生 黄色で発生。コードを実行すると、黄色のセルが削除されます。

続きを読む: Excel で一意のレコードのみに高度なフィルターを使用する方法

例 5:Excel VBA で条件なしで重複をフィルター処理して削除する

基準を設定せずに重複を削除できます。以下の手順を参照してください。

ステップ 1:

• VBA に移動 Alt+F11 を押すコマンド モジュール
• コマンド モジュールに次のコードをコピーして貼り付けます。

Sub Filter_Criteria_5()
 Dim data As Range
 Dim criteria As Range
Set data = Range("B4:E14")
data.AdvancedFilter xlFilterInPlace, , , True
End Sub

ステップ 2:

• F5 を押します キーとコードが実行されます。

データセットを見てください。ここで重複をマークしました。コードを適用した後、 最初の 出現はデータセットに残り、残りは削除されます。

続きを読む: Excel の高度なフィルターが機能しない (2 つの理由と解決策)

例 6:オペレーターのサインオン基準を挿入してデータをフィルタリングする

基準で演算子を使用して、データをフィルタリングできます。そのためには、次の手順を参照してください。

ステップ 1:

• Alt+F11 を押します コマンドモジュールに入ります。
• 以下のコードをモジュールに追加してください。

Sub Filter_Criteria_7()
 Dim data As Range
 Dim criteria As Range
Set data = Range("B4:E14")
Set criteria = Range("B16:E17")
data.AdvancedFilter xlFilterCopy, criteria, Range("G4:J14")
End Sub

ステップ 2:

• F5 を押します コードを実行します。

結果として、$1.00 を超える値が得られます .

続きを読む: VBA で高度なフィルタを使用する方法 (ステップバイステップのガイドライン)

覚えておくべきこと

• 各データ列には固有の見出しが必要です。
• データセットに空白行は許可されません。

結論

この記事では 6 を示しました Excel VBA の高度なフィルター条件の例。これがあなたのニーズを満たすことを願っています。当社のウェブサイト Exceldemy.com をご覧ください。 コメント ボックスに提案を入力してください。

関連記事

• Excel で複数の条件を使用した高度なフィルター (15 の適切な例)
• 動的高度フィルター Excel (VBA &マクロ)
• Excel の基準範囲を使用した高度なフィルター (18 アプリケーション)
• 条件範囲にテキストが含まれている場合に Excel で高度なフィルターを使用する方法
• Excel の高度なフィルター:「次を含まない」を適用 (2 つの方法)