と連携しながら マイクロソフトエクセル 大きなデータセットやテーブルの中から特定の要素に集中したいときに便利です。 作業が終わったら、それらのデータをスプレッドシートに戻す必要があります。 でも。 エクセル は、すでにそのためのツールを内蔵しています。 しかし ブイビーエー 今回は、Excel VBAでフィルタを解除する例をいくつかご紹介します。

練習用ワークブックをダウンロードする

ワークブックをダウンロードして、一緒に練習することができます。

Excel VBAでフィルタを解除する5つの簡単な方法

Excelには、データからフィルタを取り除くためのツールや関数が組み込まれています。 しかし、このツールは エクセルブイビーエー を実行するだけで、これらのフィルタをすぐに取り除くことができます。 ブイビーエー データからフィルタを取り除くために、以下のデータセットを使用します。 このデータセットには、列 B 列の製品名 C であり、列の中の配送先国 D 製品の詳細のみを見たいので シャンプー と コンディショナー で、フィルタリングされたデータをクリアする必要があるとします。 Excel VBA マクロ では、これらのフィルタをデータから取り除く例を示します。 エクセルブイビーエー .

1.Excelのテーブルからすべてのフィルタを削除するVBAを適用する

と エクセルブイビーエー を使えば、リボンから簡単にExcelのメニューを表示することができます。 ブイビーエー コードを使用して、Excel テーブルからすべてのフィルタを削除するには、手順を下に実行しましょう。

STEPS

• まずは デベロッパー タブをクリックします。
• 2つ目は、から コード カテゴリーをクリックします。 ビジュアルベーシック を開いてください。 Visual Basic エディター を押すか Alt + F11 を開いてください。 Visual Basic エディター .

• これを行う代わりに、ワークシート上で右クリックし 表示コード に移動します。 Visual Basic エディター .

• に表示されます。 Visual Basic エディター ここでは、範囲からテーブルを作成するためのコードを記述します。
• 3つ目は、「」をクリックすることです。 モジュール から インサート ドロップダウンメニューバー

• これにより モジュール をワークブックに追加してください。
• と、コピー＆ペーストしてください。 ブイビーエー というコードが表示されます。

VBAのコードです。

 Sub Remove_Filters1() Dim lstObj As ListObject Set lstObj = Sheet1.ListObjects(1) lstObj.AutoFilter.ShowAllData End Sub 

• その後、コードを実行するために RubSub ボタンを押すか、キーボードショートカット F5 .

• そして最後に、手順を踏めば、ワークシートのエクセルテーブルからすべてのフィルターが削除されます。

VBAコード説明

 Sub Remove_Filters1() 

サブ は、コード内の作業を処理するために使用されますが、値を返しません。 サブプロシジャとも呼ばれます。 そこで、このプロシジャの名前を Remove_Filters1() .

 Dim lstObj As ListObject 

変数宣言。

 セット lstObj = Sheet1.ListObjects(1) 

VBAのSetを使えば、コードを実行するときに、選ぶべき範囲を何度も入力する必要がなくなるだけです。 そこで、シート上の最初のテーブルを参照するように設定します。

 lstObj.AutoFilter.ShowAllDataを実行します。 

この行は、データ全体に対するすべてのフィルタを削除します。

 エンド・サブ 

これで手続きは終了です。

続きを読む エクセルでフィルタを解除する方法（5つの簡単な方法と簡単な方法）

2.VBAでシートのExcel表フィルタをすべて解除する

Excel VBAを使用して、シート上のすべてのExcelテーブルフィルターを削除する別の例を見てみましょう。 これについては、以下の手順を実行します。

STEPS

• まず デベロッパー リボンから[r]タブを選択します。
• 2つ目は、「」をクリックします。 ビジュアルベーシック を開いてください。 Visual Basic エディター .
• もうひとつの開き方 Visual Basic エディター を押すだけです。 Alt + F11 .
• または、シート上で右クリックし 表示コード .
• 次に、次のページに進みます。 インサート を選択し モジュール をドロップダウン・メニューから選択します。
• そして、これでビジュアルベーシックのウインドウが開かれます。
• その後、コピー＆ペーストで VBAコード を下回る。

VBAコードです。

 Sub Remove_Filters2() Dim lstObj As ListObject For Each lstObj In Sheet2.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj End Sub 

• を押してください。 F5キー をクリックするか ラン・サブ ボタンをクリックすると、コードが実行されます。

• そして、このコードは、あなたのシートからすべてのExcelテーブルのフィルタをクリアして、次のような出力を与えます。 方法1 .

VBAコード説明

 For Each lstObj In Sheet2.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj 

これらのコードは、シート上のすべてのテーブルをループし、ワークシート全体のすべてのフィルタを削除します。

続きを読む エクセルピボットテーブルのフィルタリング方法（8つの効果的な方法）

3.ExcelのVBAで列からフィルタを解除する

Excel VBAで列のフィルタを解除する別の方法を紹介します。 その手順を見てみましょう。

STEPS

• をクリックすると開始します。 デベロッパー タブをクリックします。
• 次に、起動します。 Visual Basic エディター をクリックすると ビジュアルベーシック .
• または Visual Basic エディター を押して Alt + F11 .
• あるいは 右クリック を選びます。 表示コード をメニューから選択します。
• 次に モジュール の下にあるドロップダウン・ボックスから インサート .
• そして、ビジュアルベーシックのウィンドウが表示されます。
• そこにコードを書き込む。

VBAのコードです。

 Sub Remove_Filter3() Sheet1.Range("B3:D16").AutoFilter Field:=4 End Sub 

• 最後に F5キー を実行してください。

• このコードを使用すると、Excelテーブルの列からフィルタが削除されます。

VBAコード説明

 Sheet1.Range("B3:D16").AutoFilter Field:=4 

このコードラインは、フィールド番号のみを指定し、他のパラメータは指定しない。

続きを読む 複数の条件で同じ列をフィルタリングするExcel VBA（6例）

類似の読み物

• Excel VBA：配列で複数条件を指定してフィルタリングする方法（7つの方法）
• Excelで日付でデータをフィルタリングするVBAコード（4例）
• 保護されたExcelシートでフィルタを使用する方法（簡単な手順付き）
• Excel VBAで複数の基準で異なる列をフィルタリングする
• ExcelでデータをフィルタリングするVBAコード（8例）

4.アクティブなワークシートのすべてのフィルタをクリアする

では、もう1つ見てみましょう。 エクセルブイビーエー メソッドを使って、アクティブなワークシートからすべてのフィルタをクリアすることができます。 以下にその手順を説明します。

STEPS

• はじめに、リボンを開いて デベロッパー オプションを使用します。
• そして、アクセスするために Visual Basic エディター をクリックします。 ビジュアルベーシック .
• プレス加工 Alt + F11 を表示させることもできます。 Visual Basic エディター .
• あるいは。 右クリック を選択し 表示コード をクリックすると、メニューが表示されます。
• では、その中から インサート を選択します。 モジュール .
• 次に、コピーして貼り付けます。 ブイビーエー というコードがあります。

VBAのコードです。

 Public Sub RemoveFilter() If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData End If End Sub 

• を押して、コードを実行します。 F5 キーになります。

• そして最後に、データからフィルタを削除するには、次のようにします。 ブイビーエー 様なコード 方法-1 .

続きを読む: Excelで別シートのリストでフィルタリングする方法（2つの方法）

5.ワークブックからすべてのフィルタを削除するExcel VBA

もう1つ、「虹」を見てみましょう。 r Excel VBA は、ワークブックからすべてのフィルタを削除する方法です。 では、手順を下に見てみましょう。

STEPS

• はじめに、リボンを開き、以下を選択します。 デベロッパー をドロップダウン・メニューから選択します。
• 次に、以下を選択します。 ビジュアルベーシック を開いてください。 Visual Basic エディター .
• があります。 Visual Basic エディター を押してもアクセスできます。 Alt + F11 .
• または 右クリック を選択し 表示コード をポップアップメニューから選択します。
• その後、以下を選択します。 モジュール から インサート のドロップダウンメニューをご利用ください。
• 次に、以下のVBAコードをコピー＆ペーストしてください。

VBAのコードです。

 Sub Remove_Filters_From_Workbook() Dim shtnam As Worksheet Dim lstObj As ListObject For Each shtnam In Worksheets For Each lstObj In shtnam.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj Next shtnam End Sub 

• 最後に、コードを実行するには F5 をキーボードで入力すると、ワークシートに結果が表示されます。

• この ブイビーエー のように、ワークブック全体からすべてのフィルタをクリアします。 ファーストメソッド .

VBAコード説明

 For Each shtnam In Worksheets For Each lstObj In shtnam.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj Next shtnam 

最初のループは、ワークブックのすべてのテーブルをループするためのものです。 2番目のループは、ワークシートのすべてのテーブルをループします。 そして、ループ内の行は、テーブルからフィルタをクリアするだけです。 その後、最後の2行でループを閉じてください。

続きを読む エクセルフィルタのショートカット（例題付き3つの簡単な使い方）

結論

上記の方法は、以下を支援します。 Excel VBAでフィルタを解除する これがあなたの助けになることを願っています！ご質問、ご提案、ご意見がありましたら、コメント欄でお知らせください。 または、他の記事もご覧ください。 エクセルウィキ・ドットコム ブログ