Excelマクロでフィルタ結果による処理分岐を実現する方法

Excelでのマクロを使用する際、フィルタ結果に基づいて異なる処理を行いたいことがあります。例えば、特定の文字列（この場合は「ABC」）に基づいて処理を分ける場合、その処理がデータの存在によって変わることがあります。本記事では、Excelマクロでフィルタ結果による処理分岐をどのように実現するか、特に「ABC」というデータが存在するかどうかで処理を切り替える方法について詳しく解説します。

1. Excelマクロでフィルタを掛ける基本
2. フィルタ結果に基づいて処理を分ける方法
3. コードの改善ポイントと注意点
4. まとめ：フィルタを使った処理分岐の実装

1. Excelマクロでフィルタを掛ける基本

Excel VBAでは、シートに対してフィルタをかけることができます。まずは、特定の列に対してフィルタを掛ける基本的なコードをご紹介します。以下のコードは、A列に対して「ABC」という文字列をフィルタする例です。

Sub FilterData()
    ActiveSheet.Range("A1:A200").AutoFilter Field:=1, Criteria1:="ABC"
End Sub

このコードを実行すると、A列に「ABC」というデータが含まれる行だけが表示されます。次に、この結果に基づいて処理を分ける方法を見ていきましょう。

2. フィルタ結果に基づいて処理を分ける方法

フィルタを掛けた後、特定の条件に従って処理を分けるためには、フィルタ結果が空でないかをチェックすることが重要です。例えば、フィルタ結果が空でない場合はデータをコピーする処理を行い、空の場合は別の処理に進むという流れになります。

以下のコードは、フィルタ結果に基づいて「ABC」がある場合にコピペを行い、ない場合には次の処理に進む例です。

Sub FilterAndProcess()
    ActiveSheet.Range("A1:A200").AutoFilter Field:=1, Criteria1:="ABC"

    If WorksheetFunction.Subtotal(103, Range("A2:A200")) > 1 Then
        ' フィルタ結果にデータがあればコピペ処理
        Range("A2:A200").SpecialCells(xlCellTypeVisible).Copy
        ' 貼り付け先を指定（例: B列）
        Range("B2").PasteSpecial Paste:=xlPasteValues
    Else
        ' ABCがなければ次の処理
        MsgBox "ABCが見つかりませんでした"
    End If
End Sub

このコードでは、`WorksheetFunction.Subtotal(103, Range(“A2:A200”))`を使って、フィルタされた範囲に表示されているセルの数をカウントしています。表示されているセルが1つ以上あれば、コピペ処理を実行し、表示されていない場合にはメッセージボックスを表示して次の処理に移ります。

3. コードの改善ポイントと注意点

上記のコードで問題なく動作するはずですが、いくつか注意すべき点があります。特にフィルタ後のセル範囲を正確に指定することが重要です。`SpecialCells(xlCellTypeVisible)`を使うことで、フィルタ後の可視セルのみを対象にできます。

また、`WorksheetFunction.Subtotal(103, Range(…))`の部分は、`103`が「カウント」を意味しており、フィルタされていない行を除外してカウントします。もし異なる操作を行いたい場合（例えば合計など）、`Subtotal`の引数を変更することができます。

4. まとめ：フィルタを使った処理分岐の実装

Excel VBAでフィルタ結果に基づいて処理を分ける方法は、`AutoFilter`でフィルタを掛けた後、`Subtotal`を使用して可視セルの数をカウントすることで実現できます。フィルタ結果が空でない場合にはコピペ処理を行い、空の場合には他の処理に進むという流れを作ることができます。

このアプローチを応用することで、さまざまな条件に応じた処理を簡単に実装できます。是非、実際の業務やプロジェクトで活用してみてください。