Excelでセルの値に基づいて行を自動フィルタするにはどうすればよいですか？

Excelでは、標準的なフィルター機能が提供するクイックな方法で、手動で選択した基準に基づいてデータをフィルタリングできます。ただし、一部のワークフローでは、特定のセルに値や条件を入力した直後にデータが自動的に更新されることを望む場合があります。たとえば、別のセルに入力したキーワードやパラメータに基づいてデータセットが即座にフィルタリングされるようにしたい場合、これはネイティブのExcelフィルタリング機能を超えるものとなります。このような動的または「自動フィルタ」は、データレビューのプロセスを合理化し、手動でのフィルタリングにかかる時間を削減し、フィルター条件を直接セルの値に結びつけることで精度を向上させることができます。この種のセル入力に基づく自動フィルタリングメカニズムを実装したい場合は、いくつかの実用的な解決策があります。

Excelの数式ソリューションを使用してセル値に基づいて行を自動フィルタリングする

VBAコードを使用して入力したセルの値に基づいて行を自動フィルタリングする

Excelの数式ソリューションを使用してセル値に基づいて行を自動フィルタリングする

マクロを使用しないアプローチを好む場合や、セキュリティ設定や共同作業に関する懸念からVBAを使用できない場合には、Excelに組み込まれている数式とフィルタリング機能を組み合わせて「自動フィルタ」効果を作成することができます。このソリューションは、Microsoft 365、Microsoft 2019以降のバージョンでサポートされているFILTERなどの動的配列関数で特に有効です。これは、マクロが無効になっている可能性のある同僚との共有や、インストール不要の軽量テンプレートに適しています。

1. フィルタされた結果を開始したい空白のセルを選択します（例：G2セルにカーソルを置きます）

=FILTER(A2:C20, (A2:A20=E1) * (B2:B20=E2), "No match")

2. G2に数式を入力した後、Enterキーを押します。フィルタされたデータセットは、G2から始まる範囲に表示されます。E1またはE2の値を変更すると、フィルタリングされたリストが即座に更新されます。

この数式の例では、主なデータがA2:C20にあると仮定し、フィルタ条件はE1（列Aに対応）およびE2（列Bに対応）に入力されています。1つの列だけでフィルタリングしたい場合は、論理条件を簡略化できます。「マッチなし」というメッセージは、基準に一致する行がない場合に表示されます。

ヒント: FILTER関数はMicrosoft 365および一部のMicrosoft 19+バージョンで利用可能です。古いバージョンのExcelでは、数式による動的フィルタリングはそれほど簡単ではなく、ヘルパー列と従来のオートフィルタや高度なフィルタ機能を組み合わせる方法を検討することをお勧めします。互換性を確保するためにバージョンを確認してください。

このソリューションを使用すると、結果はワークシート上の新しい領域に表示され、生データを保護します。ただし、元のデータセットには影響を与えず、フィルタは表示結果のみに適用され、ソースデータの表示状態には影響しません。

潜在的なエラー: #NAME? や #SPILL! エラーが表示される場合は、互換性のあるExcelバージョンを使用しているか確認し、結果範囲に結合されたセルがないか確認してください。また、フォーミュラのスプレッドエリアに他のデータを配置しないようにして、ブロックを防ぎます。

VBAコードを使用して入力したセルの値に基づいて行を自動フィルタリングする

特定のセルに入力した基準に基づいてレコードを自動的にフィルタリングしたいとします。たとえば、E1やE2のセルに希望する条件を入力すると、ワークシート上のデータがこれらの値に一致するように自動的にフィルタリングされます。以下に示すように動作します。

このようにフィルタリングを自動化するには、シンプルなVBAソリューションを設定できます。この方法は、指定したフィルタセルの値を更新するたびにトリガーされます。これは特に、ダッシュボード、インタラクティブレポート、またはユーザーが中心的なパラメータセルからの動的フィルタリングを期待するテンプレートに有用です。

1. 入力したセルに基づいて行のフィルタリングを自動化したいワークシートに移動します。

2. Excelウィンドウ下部のシートタブを右クリックし、コンテキストメニューから「コードの表示」を選択します。表示されたMicrosoft Visual Basic for Applicationsウィンドウに次のVBAコードを大きな空白部分（通称コードウィンドウまたはワークシートモジュール）に貼り付けます。

VBAコード: 入力したセル値に基づいてデータを自動フィルタリングする

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160606
   If Target.Address = Range("E2").Address Then
       Range("A1:C20").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("E1:E2")
   End If
End Sub

注意: このVBAコードでは、A1:C20はフィルタを適用するデータ範囲を指します。E2はフィルタ値を入力するセル（対象となる基準）、E1:E2はフィルタ条件として使用されるセルです。これらは必要に応じて変更できますが、データやフィルタ条件が配置されているワークシート構造に正確に合致するよう調整してください。また、正確なフィルタリングのために結合されたセルを避け、見出しを含める必要がある場合はデータ範囲に見出しを含めてください。

3. 次に、E1またはE2のセルにフィルタ条件を入力または変更します。Enterキーを押すと、VBAコードが自動的に実行され、入力した条件に一致する行だけが表示されるように指定されたデータ範囲がフィルタリングされます。

値を入力した後、フィルタがすぐに動作しない場合は、ワークブックでマクロ機能が有効になっていることを確認し、VBAコード内の範囲が現在のワークシートレイアウトに正しく一致しているか確認してください。複数ユーザーシナリオでは、この機能を正常に動作させるにはマクロを有効にする必要があることを他者に伝えてください。

このVBAメソッドは、動的なパラメータ駆動型のダッシュボード、データ入力用のインタラクティブテンプレート、または手動で再適用することが非効率的なフィルタ条件に関連するすべてのシナリオで特に有利です。ただし、ユーザーがマクロを無効にすると問題が発生する可能性があり、VBAベースのソリューションはコードが追加されたファイル固有のものです。

異なるExcelセキュリティ設定を持つ複数のユーザーが頻繁に基準を変更する必要がある場合、または広くファイルを共有する予定がある場合は、代替の数式ベースのソリューションやExcelアドインを検討することをお勧めします。

デモ: VBAコードを使用して入力したセル値に基づいて行を自動フィルタリングする