半角英字を全角英字に変換する方法 VBAを使った変換処理 | EXCELトピックス

Excelで半角英字を全角英字に変換する方法（関数・VBA）

Excelでデータを統一する際、半角英字（ABC）を全角英字（ＡＢＣ）に変換したい場合があります。特に、フォーマットを統一する必要がある帳票や、全角文字での入力が求められるシステムにデータを転送する際に役立ちます。

本記事では、ExcelのVBAを活用して、半角英字を全角英字に変換する方法を解説します。

VBAを使って半角英字を全角英字に変換する方法

VBAを使えば、Excel上で半角英字を全角英字に変換することが可能です。

セル範囲を選択して変換するVBAコード

事前に変換したいセル範囲をマウスで選択し、VBAマクロを実行すると、その範囲内の半角英字が全角英字に変換されます。

Sub ConvertSelectedHalfWidthToFullWidth()
    Dim cell As Range
    
    ' 選択したセル範囲を処理
    For Each cell In Selection
        If Not IsEmpty(cell.Value) Then
            cell.Value = StrConv(cell.Value, vbWide)
        End If
    Next cell
    
    MsgBox "選択した範囲の半角英字を全角英字に変換しました。", vbInformation
End Sub

VBAのコード解説

• Selection → ユーザーがマウスで選択した範囲を取得
• StrConv(cell.Value, vbWide) → 半角英字を全角英字に変換
• IsEmpty(cell.Value) → 空白セルは処理しない

使用方法

1. 変換したいセル範囲をマウスで選択する
2. VBAマクロを実行（「開発」タブ →「マクロ」 →「ConvertSelectedHalfWidthToFullWidth」）
3. 選択した範囲の半角英字が全角英字に変換される

実際の変換例

ユーザー定義関数（UDF）として利用するVBA

関数として利用したい場合は、以下のコードをVBAに登録します。

Function ToFullWidth(str As String) As String
    ToFullWidth = StrConv(str, vbWide)
End Function

使用例

Excelのセルに次の数式を入力すると、半角英字が全角英字に変換されます。

=ToFullWidth(A1)

まとめ

Excelで半角英字を全角英字に変換するには、以下の方法が有効です。

• セル範囲を選択して一括変換 → VBAマクロ（ConvertSelectedHalfWidthToFullWidth()）を実行
• 関数として利用 → ユーザー定義関数（=ToFullWidth(A1)）

これらの方法を活用すれば、Excelのデータを統一し、より扱いやすくすることができます。