【VBAリファレンス】Excel VBAとJIS関数で実現する文字列内の半角数字を全角数字に統一する完全ガイド

ExcelVBA

2026.09.02

概要

Excelでのデータ管理において、半角数字と全角数字が混在することは、データの整合性を損なう大きな要因となります。特に外部システムからの取り込みデータや、ユーザーが自由入力したアンケート結果などは、表記揺れが頻発する典型例です。これらを放置すると、VLOOKUP関数やCOUNTIF関数、あるいはピボットテーブルでの集計時に、本来同一であるはずのデータが「別物」として扱われてしまいます。本記事では、Excelの強力な関数であるJIS関数を活用し、さらにVBAを用いてこの処理を自動化・効率化する手法を徹底的に解説します。データクレンジングの現場で即戦力となる知識を習得しましょう。

詳細解説：JIS関数による半角から全角への変換メカニズム

Excelには文字列内の半角文字を全角文字に変換するための専用関数「JIS関数」が用意されています。この関数は、英数字やカタカナなどの半角文字を、対応する全角文字へと一括で変換する非常にシンプルな関数です。

基本構文は以下の通りです。
=JIS(文字列)

この関数の最大の特徴は、数字だけでなく英字や記号も変換対象となる点です。例えば、「12345」という文字列に対してJIS関数を適用すると、「１２３４５」という全角文字列に変換されます。

なぜこの変換が必要なのか、その技術的な理由は「文字コード」にあります。半角数字（ASCII文字）と全角数字（Unicode/Shift-JIS）は、コンピュータ内部では全く異なるバイト数とコード体系で保持されています。Excelの検索エンジンは、このコード体系の違いを厳格に識別するため、同じ「1」であっても、半角の「1」と全角の「１」は一致しないと判定されるのです。JIS関数を使用することで、これらを論理的に統一できるため、データ分析の前処理として不可欠なステップとなります。

VBAを用いた一括変換の実装

手作業でセル一つひとつに数式を入力するのは非効率です。特に数万行におよぶデータセットでは、VBAを活用した自動処理が必須となります。以下に、選択範囲内の半角数字を全角に変換する汎用性の高いVBAコードを提示します。


Sub ConvertHalfWidthToFullWidth()
    ' 選択範囲内のセルに対してJIS関数相当の変換を行う
    Dim rng As Range
    Dim cell As Range
    
    ' エラー回避のため、選択範囲がセル以外の場合は終了
    If TypeName(Selection) <> "Range" Then Exit Sub
    
    ' 画面更新を停止して処理速度を向上
    Application.ScreenUpdating = False
    
    Set rng = Selection
    
    For Each cell In rng
        ' 値が入力されている場合のみ変換を実行
        If Not IsEmpty(cell.Value) Then
            ' StrConv関数で全角変換（vbWide）を実行
            ' JIS関数と同等の処理をVBAの組み込み関数で行う
            cell.Value = StrConv(cell.Value, vbWide)
        End If
    Next cell
    
    Application.ScreenUpdating = True
    
    MsgBox "全角変換が完了しました。", vbInformation
End Sub

上記のコードでは、VBAの`StrConv`関数を使用しています。`vbWide`という定数を指定することで、JIS関数と同様の全角変換が可能です。このコードを個人用マクロブックに保存しておけば、どのブックからでもショートカットキー一つでデータ整形を行うことが可能になります。

実務アドバイス：データクレンジングの注意点

実務におけるデータクレンジングには、単なる技術的な変換以上の慎重さが求められます。以下の3点に注意してください。

1. バックアップの徹底：
VBAによる置換は「元に戻す（Ctrl+Z）」が効きません。コードを実行する前には必ず対象範囲をコピーし、別シートにバックアップを作成する習慣をつけてください。

2. 数式との兼ね合い：
対象セルに数式が入っている場合、`cell.Value = …`というコードを実行すると、数式が消えて計算結果の値のみが書き込まれてしまいます。数式を保持したい場合は、一度「値のみ貼り付け」で別領域に退避させるか、コード内で数式を判定するロジックを組み込む必要があります。

3. 数字以外の影響範囲：
JIS関数や`StrConv(…, vbWide)`は、数字だけでなく英字も全角に変換します。例えば「ID123」というデータは「ＩＤ１２３」となります。もし「数字だけを変換したい」という要件がある場合は、正規表現（VBScript.RegExp）を用いて、数字部分のみを置換する高度なロジックが必要となります。

正規表現を用いた高度な変換（数字のみ全角化）

数字のみを対象に変換したいという現場の要望に応えるため、正規表現を用いた実装例も紹介します。


Sub ConvertDigitsOnlyToFullWidth()
    Dim regEx As Object
    Dim matches As Object
    Dim i As Long
    Dim cell As Range
    
    Set regEx = CreateObject("VBScript.RegExp")
    
    ' 正規表現で数字の連続を検索
    regEx.Pattern = "\d+"
    regEx.Global = True
    
    For Each cell In Selection
        If regEx.Test(cell.Value) Then
            Set matches = regEx.Execute(cell.Value)
            Dim tempStr As String
            tempStr = cell.Value
            
            ' 後ろから置換して位置ズレを防ぐ
            For i = matches.Count - 1 To 0 Step -1
                Dim matchVal As String
                matchVal = matches(i).Value
                tempStr = Left(tempStr, matches(i).FirstIndex) & _
                          StrConv(matchVal, vbWide) & _
                          Mid(tempStr, matches(i).FirstIndex + Len(matchVal) + 1)
            Next i
            cell.Value = tempStr
        End If
    Next cell
End Sub

このコードを使用すれば、文字列中の英字や記号を維持したまま、数字のみを全角に統一できます。実務で求められる「柔軟なデータ変換」を実現する強力な武器となるでしょう。

まとめ

Excelにおける文字列の全角・半角統一は、データ分析の精度を決定づける重要な作業です。基本的なJIS関数による変換から、VBAを活用した一括処理、さらには正規表現によるピンポイントな変換まで、手法は多岐にわたります。

まずは小規模なデータでJIS関数を試し、その後にVBAで効率化を図るというステップを踏むことをお勧めします。自動化を推進することで、人間は「データの変換」という作業から解放され、「データの意味を読み解く」という本来の知的生産活動に集中できるようになります。プロフェッショナルとして、正確かつ効率的なデータ基盤を構築していきましょう。