Excel VBAを用いた特定のセルの値に基づく行のフィルタリング

この記事では、Excel VBAを用いて特定のセルの値に基づいて行をフィルタリングする方法について詳細に解説します。具体的なコード例、その詳細解説、さらには応用例まで、一通りの情報を提供します。この手法は業務効率化に非常に役立つものです。

VBAを用いた行のフィルタリングの基本

特定のセルの値を基に、Excelの行をフィルタリングすることは、データ解析や報告業務において時間を大幅に節約する手法です。

基本的なコードの構造

まずは基本的なコードの構造を以下に示します。

Sub RowFilterBasedOnCellValue()
    Dim targetValue As String
    Dim lastRow As Long
    
    ' フィルタリング対象とするセルの値を設定
    targetValue = Worksheets("Sheet1").Range("A1").Value
    
    ' 最終行を取得
    lastRow = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    
    ' フィルタリング実行
    Worksheets("Sheet1").Range("A2:Z" & lastRow).AutoFilter Field:=1, Criteria1:=targetValue
End Sub

コードの解説

このスクリプトでは、以下のステップで行のフィルタリングを行います。

1. `targetValue` にフィルタリングする値（この場合、”Sheet1″のA1セルの値）をセット。
2. `lastRow` で対象範囲の最後の行を取得。
3. `AutoFilter` メソッドでフィルタリング実行。

応用例

応用例1: 複数のシートで同じ処理を行う

特定のセルの値で複数のシートをフィルタリングする場合のコード例と解説を以下に示します。

Sub FilterMultipleSheets()
    Dim ws As Worksheet
    Dim targetValue As String
    
    ' フィルタリング対象の値を設定
    targetValue = Worksheets("Sheet1").Range("A1").Value
    
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Summary" Then
            ws.Rows(1).AutoFilter Field:=1, Criteria1:=targetValue
        End If
    Next ws
End Sub

応用例2: 条件を2つ以上でフィルタ

Sub MultipleConditionsFilter()
    Dim targetValue1 As String, targetValue2 As String
    
    targetValue1 = "条件1"
    targetValue2 = "条件2"
    
    Sheets("Sheet1").Rows(1).AutoFilter _
        Field:=1, _
        Criteria1:=Array(targetValue1, targetValue2), _
        Operator:=xlFilterValues
End Sub

応用例3: フィルタリング後のデータを新規シートにコピー

Sub CopyFilteredData()
    Dim wsOrigin As Worksheet, wsNew As Worksheet
    
    Set wsOrigin = ThisWorkbook.Sheets("Sheet1")
    Set wsNew = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    
    wsOrigin.UsedRange.SpecialCells(xlCellTypeVisible).Copy Destination:=wsNew.Cells(1, 1)
End Sub

まとめ

Excel VBAを使って特定のセルの値に基づいて行をフィルタリングする方法について、基本から応用まで解説しました。業務効率化に直結するこのスキルをぜひマスターしてください。