Excel VBAで大文字・小文字を区別するフィルタを作る方法

この記事では、Excel VBAを用いて業務効率化を図るための一例として、大文字・小文字を区別するフィルタ機能の作成に焦点を当てます。具体的なVBAコードの書き方、その詳細解説、およびさまざまな応用例について詳しく説明します。日本市場向けの情報に特化していますので、どうぞご期待ください。

はじめに

Excelの標準機能だけでは大文字・小文字を区別するフィルタが用意されていないため、VBAを使ってこの問題を解決する方法があります。特にデータ整理や分析作業でこのようなケースが出てくる可能性が高いです。

VBAコードの基本構造

最初に、基本となるVBAコードの構造を見てみましょう。

Sub CaseSensitiveFilter()
    Dim cell As Range
    Dim targetValue As String
    
    targetValue = "apple"
    
    For Each cell In Range("A1:A10")
        If StrComp(cell.Value, targetValue, vbBinaryCompare) = 0 Then
            cell.Interior.Color = RGB(255, 255, 0)
        End If
    Next cell
End Sub

コード解説

– `Sub CaseSensitiveFilter()`: VBAのマクロ名です。
– `Dim cell As Range, targetValue As String`: 必要な変数を定義します。
– `targetValue = “apple”`: フィルタ対象となる文字列を指定します。
– `For Each cell In Range(“A1:A10”)`: A1からA10までのセルを1つずつチェックします。
– `StrComp(cell.Value, targetValue, vbBinaryCompare) = 0`: 大文字・小文字も区別して比較します。
– `cell.Interior.Color = RGB(255, 255, 0)`: 条件に合致したセルの背景色を黄色にします。

応用例

応用例1: 複数の列でフィルタリング

Sub MultiColumnFilter()
    Dim cell As Range
    Dim targetValue As String
    
    targetValue = "apple"
    
    For Each cell In Range("A1:B10")
        If StrComp(cell.Value, targetValue, vbBinaryCompare) = 0 Then
            cell.Interior.Color = RGB(255, 0, 0)
        End If
    Next cell
End Sub

このコードでは、A1からB10までの範囲でフィルタリングを行います。背景色も赤に変更しています。

応用例2: 条件に合致したセルを別のシートにコピー

Sub CopyToNewSheet()
    Dim cell As Range
    Dim targetValue As String
    Dim ws As Worksheet
    
    Set ws = Worksheets.Add
    targetValue = "apple"
    
    For Each cell In Range("A1:A10")
        If StrComp(cell.Value, targetValue, vbBinaryCompare) = 0 Then
            ws.Range(cell.Address).Value = cell.Value
        End If
    Next cell
End Sub

応用例3: フィルタリングと並び替えを同時に行う

Sub FilterAndSort()
    Dim cell As Range
    Dim targetValue As String
    Dim matchedCells As Collection
    Dim i As Integer
    
    Set matchedCells = New Collection
    targetValue = "apple"
    
    For Each cell In Range("A1:A10")
        If StrComp(cell.Value, targetValue, vbBinaryCompare) = 0 Then
            matchedCells.Add cell.Value
        End If
    Next cell
    
    For i = 1 To matchedCells.Count
        Range("B" & i).Value = matchedCells(i)
    Next i
    
    Range("B1:B10").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlNo
End Sub

このコードでは、フィルタリングを行った後で、その結果をB列にコピーし、昇順に並び替えます。

まとめ

Excel VBAを使った大文字・小文字を区別するフィルタリングは、業務効率化の一例として非常に有用です。今回はその基本的な使い方と、いくつかの応用例を紹介しました。これを機に、VBAでより高度なデータ処理を行ってみてはいかがでしょうか。