VBAで文字列から英字のみを抽出する｜ Excel作業をVBAで効率化

正規表現で英字を抽出

文字列から英字のみを抽出する方法にはいくつか考えられます。

Excelのワークシート関数を組み合わせて抽出する方法、VBAで１文字ずつ英字かどうかを判別する方法、そして、正規表現で英字を判別する方法などです。

ワークシート関数の場合は前提条件が必要になることや、可読性が悪いことから保守性がどうしても悪くなりますし、ぱっと見て何をやってるのか分からないことがあるため、やはり避けたいです。

ネットでは１文字ずつ判別する方法が紹介されていることが多いのですが、その方法では、ループ処理、文字判別処理、文字列連結処理、という３段階が必要になります。

しかし正規表現を利用すればループ処理と文字列連結処理は不要になり、文字判別処理だけで単純になります。そして、一番高速に動作します。

ここではその正規表現での方法を紹介します。ちなみに正規表現が分からなくてもコピペで利用できます。

事前設定

以下のVBAコードは事前に正規表現の参照設定をしておく必要があります。

VBAの画面でツールメニュー→参照設定のダイアログを開き、「Microsoft VBScript Regular Expressions 5.5」にチェックを付けることで正規表現のRegExpクラスが利用できるようになります。

文字列から英字を抽出する関数

正規表現を利用しているためコードがとても単純になります。

ただし、少し工夫したコードになっています。

単純に英字を検索する方法であれば、「アルファベットを検索し、それらを全て抽出する」というコードになります。

しかしそれではコードが長くなるため、「英字以外の文字を””の空文字に置き換えて英字だけを残す」という方法にしています。

なお、この関数は大文字と小文字の半角英字のみを抽出します。全角と半角の両方を抽出したい場合は7行目の[^a-zA-Z]を[^a-zA-Zａ-ｚＡ-Ｚ]に書き換えてください。ブラウザでは分かりにくい場合もあるのですが後ろに追加しているａ-ｚＡ-Ｚの英字は全角です。

'// 引数1：対象文字列
'// 引数2：検索結果
Sub FindAlphabetRegExp(s, result)
    Dim reg     As New RegExp       '// 正規表現クラスオブジェクト
    
    '// 検索条件＝英字以外を抽出
    reg.Pattern = "[^a-zA-Z]"
    '// 文字列の最後まで検索する
    reg.Global = True
    '// 指定セルの英字以外を空文字に置き換える
    result = reg.Replace(s, "")
End Sub

'// 引数1：対象文字列

'// 引数2：検索結果

Sub FindAlphabetRegExp(s, result)

Dim reg As New RegExp '// 正規表現クラスオブジェクト

'// 検索条件＝英字以外を抽出

reg.Pattern = "[^a-zA-Z]"

'// 文字列の最後まで検索する

reg.Global = True

'// 指定セルの英字以外を空文字に置き換える

result = reg.Replace(s, "")

End Sub

文字列から英字を抽出する関数（参考版）

なお、参考として、[^a-zA-Z]（英字以外を検索）ではなく[a-zA-Z]（英字を検索）とした場合は以下のコードになります。実際に使う場合は処理速度が1.5倍ほど速い上の関数の方をお勧めします。

コードが長くなっている理由は、文字列の中のどこに英字があるのか事前に分からないため、英字を検索して見つかった全ての結果を連結するための処理が必要になるためです。

上のコードでは必要ありませんでしたが、文字列の中に英字が点在している場合を考慮する必要があるため、MatchCollectionクラスとMatchクラスで検索結果が複数発生している場合への対応をしています。

'// 引数1：対象文字列
'// 引数2：検索結果
Sub FindAlphabetRegExp2(s, result)
    Dim reg             As New RegExp       '// 正規表現クラスオブジェクト
    Dim oMatches        As MatchCollection  '// RegExp.Execute結果
    Dim oMatch          As Match            '// 検索結果オブジェクト
    Dim i                                   '// ループカウンタ
    Dim iCount                              '// 検索一致件数
    
    '// 検索範囲＝文字列の最後まで検索
    reg.Global = True
    '// 検索条件＝英字を検索
    reg.Pattern = "[a-zA-Z]"
    
    '// 検索実行
    Set oMatches = reg.Execute(s)
    
    '// 検索一致件数を取得
    iCount = oMatches.Count
    
    result = ""
    
    '// 検索一致件数だけループ
    For i = 0 To iCount - 1
        '// コレクションの現ループオブジェクトを取得
        Set oMatch = oMatches.Item(i)
        
        '// 検索一致文字列
        result = result & oMatch.Value
    Next
End Sub

'// 引数1：対象文字列

'// 引数2：検索結果

Sub FindAlphabetRegExp2(s, result)

Dim reg As New RegExp '// 正規表現クラスオブジェクト

Dim oMatches As MatchCollection '// RegExp.Execute結果

Dim oMatch As Match '// 検索結果オブジェクト

Dim i '// ループカウンタ

Dim iCount '// 検索一致件数

'// 検索範囲＝文字列の最後まで検索

reg.Global = True

'// 検索条件＝英字を検索

reg.Pattern = "[a-zA-Z]"

'// 検索実行

Set oMatches = reg.Execute(s)

'// 検索一致件数を取得

iCount = oMatches.Count

result = ""

'// 検索一致件数だけループ

For i = 0 To iCount - 1

'// コレクションの現ループオブジェクトを取得

Set oMatch = oMatches.Item(i)

'// 検索一致文字列

result = result & oMatch.Value

End Sub

利用方法

上のFindAlphabetRegExp関数を利用するサンプルコードです。

引数に「あいうａｂｃ1234abc890DEFzZＺあ」という文字列と抽出結果を返す変数を渡します。

Sub FindAlphabetCallTest()
    Dim s
    
    Call FindAlphabetRegExp("あいうａｂｃ1234abc890DEFzZＺあ", s)
    Debug.Print s
End Sub

Sub FindAlphabetCallTest()

Dim s

Call FindAlphabetRegExp("あいうａｂｃ1234abc890DEFzZＺあ", s)

Debug.Print s

End Sub

実行結果
abcDEFzZ

正規表現で英字を抽出

事前設定

文字列から英字を抽出する関数

文字列から英字を抽出する関数（参考版）

利用方法

関連記事