【VBAリファレンス】Excel VBAで正規表現を活用し半角カナを全角に変換する極意

ExcelVBA

2026.09.07

概要

Excel VBAで業務効率化を図る際、避けては通れないのが「文字コードの揺れ」の問題です。特に、レガシーなシステムから出力されたデータや、ユーザーが自由入力したアンケート結果などには、半角カナと全角カナが混在していることが多々あります。これらが混在したままでVLOOKUP関数や集計を行うと、本来一致すべきデータが「不一致」と判定され、業務上の大きなロスを招きます。

本記事では、VBAで標準的に利用可能な「VBScript.RegExp」オブジェクトを用いた、極めて高速かつ汎用性の高い「半角カナを全角に変換する手法」について解説します。文字変換のアルゴリズムを理解し、実務レベルのコードを実装することで、データクレンジングの時間を劇的に短縮しましょう。

詳細解説

Excelには標準で「StrConv関数」という非常に便利な関数が存在します。実は、半角カナを全角に変換するだけであれば、StrConv(対象文字列, vbWide)を使用するだけで完結します。しかし、実務では「半角カナだけを全角にしたい」「特定の記号はそのまま残したい」といった、より高度な要件が求められる場面が少なくありません。

ここで登場するのが「正規表現（Regular Expression）」です。正規表現を用いることで、文字列の中から特定のパターン（今回の場合は半角カナの範囲）をピンポイントで抽出し、それを置換するという柔軟な処理が可能になります。

VBAで正規表現を扱うには「Microsoft VBScript Regular Expressions 5.5」というライブラリを参照設定するか、あるいは「CreateObject(“VBScript.RegExp”)」を使用して動的にインスタンス化します。今回は、配布のしやすさを考慮し、後者のLate Binding（レイトバインディング）を採用します。

半角カナの範囲は、Unicodeでは「U+FF61」から「U+FF9F」の範囲に収まっています。正規表現のパターンとして「[\uFF61-\uFF9F]+」を指定することで、連続する半角カナを一括で捕まえることが可能です。ただし、VBAの正規表現エンジンは標準でUnicodeの範囲指定に癖があるため、置換の際には一工夫加える必要があります。

サンプルコード

以下のコードは、指定した範囲のセルに含まれる半角カナを一括で全角に変換するプロシージャです。


Option Explicit

' 指定範囲内の半角カナを全角に変換するメインプロシージャ
Public Sub ConvertHalfKanaToFull()
    Dim targetRange As Range
    Dim cell As Range
    Dim regEx As Object
    
    ' 選択範囲を取得
    Set targetRange = Selection
    
    ' 正規表現オブジェクトの生成
    Set regEx = CreateObject("VBScript.RegExp")
    
    ' 全ての半角カナを全角に変換するためのパターン
    ' ※VBAの正規表現は純粋なUnicode範囲指定が弱いため、
    ' StrConvのvbWideを併用するのが最も効率的で安全です。
    
    Application.ScreenUpdating = False
    
    For Each cell In targetRange
        If Not IsEmpty(cell.Value) Then
            ' セル内の全角化を適用（StrConvは半角カナを全角カナへ変換可能）
            ' 必要に応じて、ここを正規表現による置換ロジックに置き換えます
            cell.Value = StrConv(cell.Value, vbWide)
        End If
    Next cell
    
    Application.ScreenUpdating = True
    
    MsgBox "変換が完了しました。", vbInformation
End Sub

' 正規表現を使用して「特定の半角カナのみ」を置換する高度な関数
Public Function ReplaceSpecificKana(ByVal text As String) As String
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    
    ' 半角カナの範囲を定義（簡易版）
    With regEx
        .Global = True
        .IgnoreCase = True
        .Pattern = "[｡-ﾟ]+"
    End With
    
    ' 正規表現による置換ロジック
    ' ※VBAの正規表現エンジンは置換時に文字コードを直接操作できないため、
    ' マッチした文字列をループでStrConvに渡すのが実務的な解法です。
    Dim matches As Object
    Dim match As Object
    Set matches = regEx.Execute(text)
    
    Dim result As String
    result = text
    
    For Each match In matches
        result = Replace(result, match.Value, StrConv(match.Value, vbWide))
    Next
    
    ReplaceSpecificKana = result
End Function

実務アドバイス

実務において、正規表現とStrConvを使い分ける判断基準は「対象データの純度」です。

1. セル全体を全角にしても問題ない場合：
迷わず「StrConv(値, vbWide)」を使用してください。コードが短く可読性が高いため、メンテナンス性に優れます。

2. 特定の文字列だけを変換したい場合：
正規表現を活用します。例えば、「住所に含まれる丁目番号の半角カナだけは無視し、氏名欄のカナだけを全角にしたい」といったケースでは、正規表現でマッチングを行い、その結果に対してのみStrConvを適用するという「ハイブリッド方式」が最強です。

また、大規模なデータを処理する際は、ループ処理の中で「セルに直接書き込む」動作を繰り返すと処理速度が著しく低下します。一度配列に値を取り込み、メモリ上で置換処理を完了させてからセルに一括出力する「配列処理」を組み合わせることで、数万行のデータであっても数秒で処理を完了させることが可能です。

もう一点、注意すべきは「濁点・半濁点の扱い」です。半角カナの「カ＋゛（濁点）」と、全角カナの「ガ」をどう扱うかは、システム間で仕様が分かれます。StrConvはこれらを自動的に結合して変換してくれますが、元のデータが「1文字の半角カナ」なのか「2文字の半角＋記号」なのかによって結果が異なる場合があります。事前にサンプルデータで検証を行うことを強く推奨します。

まとめ

Excel VBAにおける半角カナの全角変換は、単純な関数一つで解決できることもあれば、複雑なデータクレンジングが求められることもあります。正規表現（RegExp）オブジェクトは、その柔軟性において非常に強力な武器となります。

・StrConvは「全角統一」の切り札として使う。
・正規表現は「抽出・置換の条件分岐」が必要な場合に使う。
・処理速度を重視するなら「配列処理」と組み合わせる。

この3点を押さえておけば、どのような厄介なデータに対しても冷静に対処できるはずです。「VBAは単なる自動化ツールではなく、データの品質を保証するエンジニアリングツールである」という視点を持ち、日々の業務効率を極限まで高めてください。本記事のコードを雛形として、あなたのプロジェクトに最適なツールへと進化させてみてください。