高度なフィルタ基準を使用した 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 つの方法)
-
Excel VBA でデータ入力フォームを作成する方法 (簡単な手順)
VBA で作業中 Excel でデータ入力フォームを作成しようとすると、ほとんどの人が問題に直面します。この記事では、データ入力フォームを作成する方法を紹介します VBA を使用して Excel で非常に便利かつ適切に . Excel VBA でデータ入力フォームを作成する 3 つの簡単な手順 ここには、ワシントン、ニューヨークという 3 つのワークシートがあります。 とカリフォルニア 名前、連絡先番号、年齢を含む と性別 銀行のこれら 3 つの支店の一部の顧客。 今日の目的は、VBA を使用してこのデータベースにデータを入力するためのフォームを作成することです . 2 つのステッ
-
Excel でのネストされた ANOVA (例による詳細な分析)
分散分析または ANOVA は有用な分析です。 1918 年のプロセス開発の当初から、広く使用されてきました。これは、平均グループと異なるグループの間の統計的差異を示し、それぞれの値がどの程度相関しているかを判断します。ネストされた ANOVA では、これらのグループが多くのグループに分割され、個別に相関する場合と相関しない場合があります。この記事では、ネストされた ANOVA の概要と、Excel で分析を実行する方法について説明します。 デモンストレーションに使用するワークブックは、以下のリンクからダウンロードできます。 ANOVA 分析とは ANOVA は、データセット内で観察された