Excelで複数のシートに同じフィルターを適用するにはどうすればよいですか？

フィルタ機能を適用してワークシート内のデータをフィルタリングするのは簡単かもしれませんが、同じフィルタ基準で共通のデータ形式を持つ複数のワークシートをフィルタリングする必要がある場合があります。 それらをXNUMXつずつフィルタリングすると、多くの時間が無駄になります。ここでは、一度に解決する簡単な方法を紹介します。

VBAコードを使用して複数のワークシートに同じフィルターを適用する

VBAコードを使用して複数のワークシートに同じフィルターを適用する

たとえば、次のスクリーンショットは、Product = KTEと同じ基準で一度にフィルタリングする必要があるため、XNUMXつのワークシートがあります。

Excelで複数のシートのデータを直接フィルタリングする方法はありませんが、次のVBAコードは、このジョブを完了するのに役立ちます。次のようにしてください。

1。 を押し続けます Alt + F11 キーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード：同じフィルターを複数のワークシートに適用します。

Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
    Dim xWs As Worksheet
    On Error Resume Next
    For Each xWs In Worksheets
        xWs.Range("A1").AutoFilter 1, "=KTE"
    Next
End Sub

3。 そして、 F5 このコードを実行するためのキー。KTEのすべての製品がすべてのワークシートで一度にフィルタリングされています。スクリーンショットを参照してください。

Note：上記のコード内で、これで xWs.Range（ "A1"）。AutoFilter 1、 "= KTE" スクリプト、 A1 • = KTE フィルタリングの対象となる列と基準を示します。番号1は、フィルタリングの対象となる列番号です。必要に応じて変更できます。 たとえば、50を超える注文をフィルタリングする場合は、次のようにこのスクリプトを変更する必要があります。 xWs.Range（ "B1"）。AutoFilter 2、 "> 50".