VBAで簡単！全角と半角の文字を自在に変換する方法と実用例

Excel VBAを活用することで、手作業では手間のかかる全角文字と半角文字の変換を自動化できます。たとえば、ユーザーからの入力を整理する際や、外部システムへのデータ送信でフォーマットを整える必要がある場合など、全角・半角の統一は非常に重要です。
この記事では、VBAで文字列を全角から半角、またはその逆に変換する方法について、基本的なコードから応用例までわかりやすく解説します。初学者でも使えるシンプルなコードも紹介しますので、ぜひ業務効率化の一助としてお役立てください。

VBAで全角と半角を変換する基本の考え方

VBAには、全角・半角を直接変換する組み込み関数は用意されていません。しかし、StrConv関数を使用することで、ある程度の文字（主に英数字とカタカナ）の変換が可能です。

StrConv(文字列, 変換タイプ)

主な変換タイプの一覧

  • vbWide：半角を全角に変換
  • vbNarrow：全角を半角に変換
  • vbKatakana：ひらがなをカタカナに変換
  • vbHiragana：カタカナをひらがなに変換

全角から半角への変換例

Sub ConvertToHalfWidth()
    Dim originalText As String
    Dim convertedText As String

    originalText = "ＡＢＣ１２３　カタカナ"
    convertedText = StrConv(originalText, vbNarrow)
    
    MsgBox "変換前：" & originalText & vbCrLf & "変換後：" & convertedText
End Sub

解説

このコードでは、全角のアルファベットと数字、カタカナが半角に変換されます。ただし、記号や漢字は対象外となるので注意が必要です。

半角から全角への変換例

Sub ConvertToFullWidth()
    Dim originalText As String
    Dim convertedText As String

    originalText = "ABC123 ｶﾀｶﾅ"
    convertedText = StrConv(originalText, vbWide)
    
    MsgBox "変換前：" & originalText & vbCrLf & "変換後：" & convertedText
End Sub

解説

このコードでは、半角英数字と半角カナが全角に変換されます。ユーザーがIMEで入力した内容がバラバラでも、整った形式に変換できます。

文字列内の英数字のみを変換したい場合

全体を変換してしまうと、不要な文字まで変換されることがあります。英数字だけをピンポイントで変換したい場合には、正規表現を使って特定部分のみ変換する方法もあります。

Function ConvertAlphaNumToHalfWidth(text As String) As String
    Dim i As Integer
    Dim ch As String
    Dim result As String
    
    For i = 1 To Len(text)
        ch = Mid(text, i, 1)
        If AscW(ch) >= 65281 And AscW(ch) <= 65374 Then
            result = result & ChrW(AscW(ch) - 65248)
        Else
            result = result & ch
        End If
    Next i
    
    ConvertAlphaNumToHalfWidth = result
End Function

解説

この関数は、Unicodeの範囲で全角英数字（U+FF01～U+FF5E）を半角に変換します。記号なども一部含まれており、細かい制御が可能です。

実用例：シート上のセルを一括変換する

Sub ConvertSelectedCellsToHalfWidth()
    Dim cell As Range
    For Each cell In Selection
        If Not IsEmpty(cell.Value) Then
            cell.Value = StrConv(cell.Value, vbNarrow)
        End If
    Next cell
End Sub

解説

ユーザーが選択したセル範囲内の文字列を一括で半角に変換します。大量のデータを扱う際に非常に便利です。

ひらがな・カタカナの変換との組み合わせも便利

Sub ConvertToKatakanaAndHalfWidth()
    Dim text As String
    text = "ひらがな かたかな"
    
    ' ひらがな→カタカナ → 全角→半角
    MsgBox StrConv(StrConv(text, vbKatakana), vbNarrow)
End Sub

注意点：記号や漢字の変換はできない

StrConvでは、たとえば「＠」「＃」などの記号や、漢字に対しては変換できません。これらを含めた変換が必要な場合は、より高度な処理や外部ライブラリの活用を検討しましょう。

まとめ

VBAのStrConv関数を活用することで、英数字やカタカナの全角・半角変換が簡単に行えます。
一見地味に見えるこの変換処理ですが、データ入力や帳票出力の品質を保つ上では欠かせない重要な要素です。
本記事で紹介したサンプルコードをもとに、業務に合ったマクロを作成し、作業の自動化・標準化を進めていきましょう。

タイトルとURLをコピーしました