MENU
  1. ホーム
  2. VBA
  3. Excel VBAを用いて部分一致で文字列をフィルタする方法

Excel VBAを用いて部分一致で文字列をフィルタする方法

VBA

Excelでのデータ分析や管理を効率化するために、VBA（Visual Basic for Applications）を使用して部分一致フィルタを実装する方法を紹介します。部分一致フィルタは、大量のデータから特定のキーワードを含む項目を抽出するのに非常に便利です。本記事では、VBAの基本から実際のコードの書き方、応用例やエラー処理まで、詳細に解説していきます。

目次

Excel VBAの基本

VBA（Visual Basic for Applications）は、Excel内で自動化タスクを実行するための強力なツールです。まず、VBAを使うための基本的な準備と使い方について説明します。

VBAエディタの起動

Excelのリボンメニューから「開発」タブをクリックし、「Visual Basic」ボタンを押すと、VBAエディタが起動します。もし「開発」タブが表示されていない場合は、Excelのオプションから有効にしてください。

モジュールの追加

VBAエディタで「挿入」メニューから「標準モジュール」を選択します。これで、新しいモジュールが追加され、コードを入力できる状態になります。

基本的なコードの書き方

以下は、簡単なVBAコードの例です。このコードは、選択したセルに「Hello, World!」と表示するものです。

Sub HelloWorld()
    Selection.Value = "Hello, World!"
End Sub

このコードをVBAエディタに入力し、実行することで、VBAの基本的な動作を確認できます。

コードの実行方法

VBAコードを実行するには、VBAエディタ内でコードを書いた後、「実行」メニューから「Sub/ユーザーフォームの実行」を選ぶか、F5キーを押します。または、Excelシート上でボタンを作成し、そのボタンにマクロを割り当てて実行することもできます。

以上で、VBAの基本的な準備と使い方の説明を終了します。次に、部分一致フィルタの仕組みについて詳しく見ていきましょう。

部分一致フィルタの仕組み

部分一致フィルタは、データセット内のセルの内容が特定の文字列を含むかどうかを判定し、該当する行を抽出する機能です。これにより、膨大なデータから必要な情報を効率よく見つけ出すことができます。

部分一致フィルタの基本概念

部分一致フィルタは、検索対象の文字列がセルの値に部分的に一致するかどうかをチェックします。例えば、「apple」という文字列を含むすべてのセルを抽出する場合、「apple pie」や「pineapple」などのセルが該当します。

Excelでのフィルタ操作

通常のExcel操作で部分一致フィルタを使用するには、以下の手順を踏みます：

  1. データ範囲を選択する。
  2. リボンの「データ」タブをクリックし、「フィルター」を選択する。
  3. フィルターのドロップダウンメニューから「テキストフィルター」→「次の値を含む」を選択し、検索したい文字列を入力する。

VBAでの部分一致フィルタ

VBAを使うことで、部分一致フィルタを自動化できます。VBAでは、Like演算子を使用して部分一致の条件を指定することができます。例えば、次のようなコードで部分一致フィルタを実装します。

Sub PartialMatchFilter()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range

    ' 対象のシートと範囲を設定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A1:A100")

    ' 検索文字列
    Dim searchString As String
    searchString = "apple"

    ' フィルタ結果の表示
    For Each cell In rng
        If cell.Value Like "*" & searchString & "*" Then
            cell.Interior.Color = RGB(255, 255, 0) ' 該当セルを黄色にハイライト
        End If
    Next cell
End Sub

このコードは、シート「Sheet1」のA1からA100の範囲内で「apple」という文字列を含むセルを検索し、該当するセルを黄色でハイライトします。次のセクションでは、具体的なVBAコードを用いて部分一致フィルタを実装する手順について詳しく解説します。

VBAで部分一致フィルタを作成する

ここでは、VBAを使ってExcelで部分一致フィルタを実装する具体的な手順を紹介します。以下のコードは、特定の文字列を含む行をフィルタリングして表示する方法を示します。

部分一致フィルタのVBAコード

以下は、Excelシート上のデータ範囲に対して部分一致フィルタを適用するVBAコードです。

Sub ApplyPartialMatchFilter()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim lastRow As Long
    Dim searchString As String
    Dim filterRange As Range

    ' 対象のシートと検索文字列を設定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    searchString = InputBox("検索したい文字列を入力してください")

    ' 最後の行を取得
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' データ範囲を設定
    Set rng = ws.Range("A1:A" & lastRow)

    ' フィルタ範囲を設定
    Set filterRange = ws.Range("A1:A" & lastRow).EntireRow

    ' オートフィルタをクリア
    ws.AutoFilterMode = False

    ' オートフィルタを適用
    rng.AutoFilter Field:=1, Criteria1:="*" & searchString & "*"

    ' 結果を表示
    For Each cell In filterRange.SpecialCells(xlCellTypeVisible)
        cell.Interior.Color = RGB(255, 255, 0) ' 該当行を黄色にハイライト
    Next cell
End Sub

コードの実行手順

  1. VBAエディタを開き、新しいモジュールを作成します。
  2. 上記のコードをコピーして、モジュールに貼り付けます。
  3. コードを保存し、Excelシートに戻ります。
  4. リボンの「開発」タブから「マクロ」ボタンをクリックし、ApplyPartialMatchFilterマクロを実行します。
  5. ポップアップウィンドウに検索したい文字列を入力すると、該当する行がフィルタリングされて表示され、該当行が黄色でハイライトされます。

このコードでは、ユーザーが入力した文字列を含む行をフィルタリングし、視覚的に強調するために黄色にハイライトします。次のセクションでは、このコードの各部分の詳細について解説します。

コードの詳細説明

ここでは、部分一致フィルタを実装したVBAコードの各部分が何をしているのかを詳しく解説します。これにより、コードの動作を理解し、カスタマイズすることができるようになります。

シートと検索文字列の設定

Dim ws As Worksheet
Dim searchString As String

Set ws = ThisWorkbook.Sheets("Sheet1")
searchString = InputBox("検索したい文字列を入力してください")

この部分では、対象となるシートをwsとして設定し、ユーザーに検索文字列を入力させるためのポップアップウィンドウを表示します。

データ範囲と最後の行の取得

Dim rng As Range
Dim lastRow As Long

lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
Set rng = ws.Range("A1:A" & lastRow)

ここでは、シート内の最後の行を取得し、データ範囲を設定します。lastRowはデータが存在する最後の行の番号です。

フィルタ範囲の設定とオートフィルタのクリア

Dim filterRange As Range

Set filterRange = ws.Range("A1:A" & lastRow).EntireRow
ws.AutoFilterMode = False

filterRangeはフィルタを適用する範囲です。EntireRowを使って、範囲内の全行を対象にしています。AutoFilterModeをFalseにすることで、既存のフィルタをクリアします。

オートフィルタの適用

rng.AutoFilter Field:=1, Criteria1:="*" & searchString & "*"

AutoFilterメソッドを使用して、部分一致フィルタを適用します。Criteria1には検索文字列を含む条件を指定しています。

フィルタ結果の表示とハイライト

For Each cell In filterRange.SpecialCells(xlCellTypeVisible)
    cell.Interior.Color = RGB(255, 255, 0)
Next cell

SpecialCellsメソッドを使って、フィルタリングされたセル（表示されているセル）のみを取得し、各セルを黄色でハイライトします。

エラー処理の追加

エラー処理を追加することで、フィルタ結果が空の場合やその他のエラーに対処できます。以下のコードを追加します。

On Error Resume Next
Set filterRange = filterRange.SpecialCells(xlCellTypeVisible)
If Err.Number <> 0 Then
    MsgBox "該当するデータが見つかりませんでした。", vbExclamation
    Err.Clear
    Exit Sub
End If
On Error GoTo 0

この部分をフィルタ結果の表示とハイライトの前に追加することで、エラーが発生した場合にメッセージを表示し、適切に処理します。

これで、VBAコードの各部分の説明が終わりました。次に、複数条件の部分一致フィルタの実装方法について解説します。

応用例: 複数条件の部分一致フィルタ

ここでは、部分一致フィルタをさらに発展させ、複数の条件を組み合わせてフィルタリングする方法を紹介します。この応用例では、複数のキーワードを用いてデータをフィルタリングし、条件に一致する行を表示します。

複数条件の部分一致フィルタVBAコード

以下は、複数の条件を使用して部分一致フィルタを適用するVBAコードです。

Sub ApplyMultiplePartialMatchFilter()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim lastRow As Long
    Dim searchString1 As String
    Dim searchString2 As String
    Dim filterRange As Range

    ' 対象のシートと検索文字列を設定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    searchString1 = InputBox("1つ目の検索したい文字列を入力してください")
    searchString2 = InputBox("2つ目の検索したい文字列を入力してください")

    ' 最後の行を取得
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' データ範囲を設定
    Set rng = ws.Range("A1:A" & lastRow)

    ' フィルタ範囲を設定
    Set filterRange = ws.Range("A1:A" & lastRow).EntireRow

    ' オートフィルタをクリア
    ws.AutoFilterMode = False

    ' オートフィルタを適用
    rng.AutoFilter Field:=1, Criteria1:="*" & searchString1 & "*", Operator:=xlOr, Criteria2:="*" & searchString2 & "*"

    ' エラー処理を追加
    On Error Resume Next
    Set filterRange = filterRange.SpecialCells(xlCellTypeVisible)
    If Err.Number <> 0 Then
        MsgBox "該当するデータが見つかりませんでした。", vbExclamation
        Err.Clear
        Exit Sub
    End If
    On Error GoTo 0

    ' 結果を表示
    For Each cell In filterRange
        cell.Interior.Color = RGB(255, 255, 0) ' 該当行を黄色にハイライト
    Next cell
End Sub

コードの実行手順

  1. VBAエディタを開き、新しいモジュールを作成します。
  2. 上記のコードをコピーして、モジュールに貼り付けます。
  3. コードを保存し、Excelシートに戻ります。
  4. リボンの「開発」タブから「マクロ」ボタンをクリックし、ApplyMultiplePartialMatchFilterマクロを実行します。
  5. ポップアップウィンドウに最初の検索文字列を入力し、続いて2つ目の検索文字列を入力します。該当する行がフィルタリングされ、黄色でハイライトされます。

コードの詳細説明

このコードは、前述の単一条件フィルタに似ていますが、Criteria1とCriteria2を使用して複数の条件を指定し、Operator:=xlOrで条件のいずれかに一致する行をフィルタリングします。

複数条件の部分一致フィルタは、データが多岐にわたる場合や複数のキーワードでフィルタリングしたい場合に非常に有効です。次のセクションでは、フィルタコードで発生する可能性のあるエラーの対処方法とデバッグのコツを説明します。

エラー処理とデバッグ

部分一致フィルタのVBAコードを実行する際に発生する可能性のあるエラーを適切に処理し、コードのデバッグ方法を理解することは重要です。ここでは、エラー処理の基本と、デバッグのコツを紹介します。

エラー処理の基本

VBAコードを実行する際、予期しないエラーが発生することがあります。これに対処するために、エラー処理をコードに組み込みます。

On Error Resume Next
' エラーが発生する可能性のあるコード
If Err.Number <> 0 Then
    MsgBox "エラーが発生しました: " & Err.Description, vbExclamation
    Err.Clear
End If
On Error GoTo 0

このコードは、エラーが発生した場合にメッセージボックスを表示し、エラーをクリアします。

エラー処理を実装した部分一致フィルタコード

以下は、前述の部分一致フィルタコードにエラー処理を追加したものです。

Sub ApplyPartialMatchFilterWithErrorHandling()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim lastRow As Long
    Dim searchString As String
    Dim filterRange As Range

    On Error GoTo ErrorHandler

    ' 対象のシートと検索文字列を設定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    searchString = InputBox("検索したい文字列を入力してください")

    ' 最後の行を取得
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' データ範囲を設定
    Set rng = ws.Range("A1:A" & lastRow)

    ' フィルタ範囲を設定
    Set filterRange = ws.Range("A1:A" & lastRow).EntireRow

    ' オートフィルタをクリア
    ws.AutoFilterMode = False

    ' オートフィルタを適用
    rng.AutoFilter Field:=1, Criteria1:="*" & searchString & "*"

    ' フィルタ結果を取得
    On Error Resume Next
    Set filterRange = filterRange.SpecialCells(xlCellTypeVisible)
    If Err.Number <> 0 Then
        MsgBox "該当するデータが見つかりませんでした。", vbExclamation
        Err.Clear
        Exit Sub
    End If
    On Error GoTo 0

    ' 結果を表示
    For Each cell In filterRange
        cell.Interior.Color = RGB(255, 255, 0) ' 該当行を黄色にハイライト
    Next cell

    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description, vbExclamation
    Err.Clear
End Sub

デバッグのコツ

デバッグは、コードが意図したとおりに動作しない場合の問題を特定するのに役立ちます。以下は、VBAコードのデバッグに役立ついくつかの方法です。

ブレークポイントの設定

コード内の特定の行にブレークポイントを設定すると、その行でコードの実行が一時停止します。これにより、実行時の変数の値やコードの流れを確認できます。ブレークポイントは、VBAエディタ内で行番号の左側をクリックすることで設定できます。

ステップ実行

F8キーを押すと、コードを1行ずつ実行できます。これにより、コードの動作を詳細に追跡し、問題の原因を特定できます。

ウォッチウィンドウの使用

ウォッチウィンドウを使用すると、特定の変数の値をリアルタイムで監視できます。VBAエディタの「表示」メニューから「ウォッチウィンドウ」を選択し、監視したい変数を追加します。

以上で、部分一致フィルタのエラー処理とデバッグの説明は終了です。次のセクションでは、読者が学んだ内容を実践するための演習問題を提供します。

演習問題

ここでは、読者がこの記事で学んだ内容を実際に試してみるための演習問題を提供します。これにより、VBAを使った部分一致フィルタの実装方法を深く理解することができます。

演習1: 基本的な部分一致フィルタの実装

次の手順に従って、単一の検索文字列を用いた部分一致フィルタを実装してください。

  1. Excelの任意のシートに適当なデータを入力します。
  2. VBAエディタを開き、新しいモジュールを作成します。
  3. 以下のコードを入力し、検索したい文字列を入力してフィルタを実行します。
Sub BasicPartialMatchFilter()
    Dim ws As Worksheet
    Dim rng As Range
    Dim lastRow As Long
    Dim searchString As String

    Set ws = ThisWorkbook.Sheets("Sheet1")
    searchString = InputBox("検索したい文字列を入力してください")

    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set rng = ws.Range("A1:A" & lastRow)

    ws.AutoFilterMode = False
    rng.AutoFilter Field:=1, Criteria1:="*" & searchString & "*"
End Sub

演習2: 複数条件の部分一致フィルタ

以下の手順に従って、複数の検索文字列を用いた部分一致フィルタを実装してください。

  1. 上記と同様に、適当なデータをExcelシートに入力します。
  2. VBAエディタを開き、次のコードを入力します。
Sub MultiplePartialMatchFilter()
    Dim ws As Worksheet
    Dim rng As Range
    Dim lastRow As Long
    Dim searchString1 As String
    Dim searchString2 As String

    Set ws = ThisWorkbook.Sheets("Sheet1")
    searchString1 = InputBox("1つ目の検索したい文字列を入力してください")
    searchString2 = InputBox("2つ目の検索したい文字列を入力してください")

    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set rng = ws.Range("A1:A" & lastRow)

    ws.AutoFilterMode = False
    rng.AutoFilter Field:=1, Criteria1:="*" & searchString1 & "*", Operator:=xlOr, Criteria2:="*" & searchString2 & "*"
End Sub
  1. このコードを実行し、2つの検索文字列を入力してフィルタを実行します。

演習3: エラー処理を含む部分一致フィルタの実装

以下の手順に従って、エラー処理を含む部分一致フィルタを実装してください。

  1. データをExcelシートに入力します。
  2. VBAエディタを開き、次のコードを入力します。
Sub PartialMatchFilterWithErrorHandling()
    Dim ws As Worksheet
    Dim rng As Range
    Dim lastRow As Long
    Dim searchString As String

    On Error GoTo ErrorHandler

    Set ws = ThisWorkbook.Sheets("Sheet1")
    searchString = InputBox("検索したい文字列を入力してください")

    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set rng = ws.Range("A1:A" & lastRow)

    ws.AutoFilterMode = False
    rng.AutoFilter Field:=1, Criteria1:="*" & searchString & "*"

    On Error Resume Next
    Set rng = rng.SpecialCells(xlCellTypeVisible)
    If Err.Number <> 0 Then
        MsgBox "該当するデータが見つかりませんでした。", vbExclamation
        Err.Clear
        Exit Sub
    End If
    On Error GoTo 0

    For Each cell In rng
        cell.Interior.Color = RGB(255, 255, 0)
    Next cell

    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description, vbExclamation
    Err.Clear
End Sub
  1. このコードを実行し、検索文字列を入力してフィルタを実行します。エラーが発生した場合は、適切に処理されることを確認してください。

これらの演習を通じて、部分一致フィルタの実装方法を実践し、VBAのスキルを向上させてください。次に、この記事の内容を総括します。

まとめ

この記事では、Excel VBAを用いて部分一致フィルタを実装する方法について詳細に解説しました。基本的なVBAの使い方から始め、部分一致フィルタの仕組みや具体的なコードの実装手順、複数条件フィルタの応用例、エラー処理とデバッグの方法を紹介しました。また、読者が実際に試すことができる演習問題も提供しました。

VBAを用いることで、Excelのデータ処理を自動化し、効率化することが可能です。部分一致フィルタは、特定のキーワードを含むデータを迅速に抽出するのに非常に便利な機能です。この記事の内容を参考にして、自分のデータ分析や管理のニーズに合わせたフィルタリングシステムを構築してください。

今後も継続してVBAの学習を進めることで、より高度な自動化やデータ処理が可能になります。ぜひ挑戦してみてください。

VBA
Excel VBA 業務効率化 文字列フィルタ 部分一致

コメント

コメントする

目次