複数のシートに同じフィルターを適用するには？ Excelで

ワークシート内のデータをフィルターするために「フィルター」機能を使用するのは簡単かもしれませんが、時々、共通のデータ形式を持つ複数のワークシートに対して同じフィルター条件でフィルタリングする必要がある場合があります。一つずつフィルタリングすると多くの時間がかかりますので、ここでは一度に解決できる簡単な方法をご紹介します。

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

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

例えば、次のスクリーンショットのように、4つのワークシートがあり、すべて同時に「製品 = KTE」という同じ基準でフィルタリングする必要があります。

Excelで複数のシートにわたってデータを直接フィルタリングする方法はありませんが、以下のVBAコードを使用することでこの作業を完了できます。以下の手順を行ってください：

1. ALT + F11キーを押したままにすると、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. 「挿入」>「モジュール」をクリックし、以下のコードをモジュールウィンドウに貼り付けます。

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の製品が一括でフィルタリングされます。スクリーンショットをご覧ください：

注意: 上記のコード内では、xWs.Range("A1").AutoFilter 1, "=KTE" スクリプトにおいて、A1と=KTEはフィルター基準となる列と条件を示しており、数字の1はフィルター対象の列番号です。これらは必要に応じて変更できます。例えば、注文数が50より大きいものをフィルタリングしたい場合は、このスクリプトを次のように修正します：xWs.Range("B1").AutoFilter 2, ">50".