全角・半角カタカナを全角ひらがなに変換する方法 VBAを使った変換処理 | EXCELトピックス

Excelで全角カタカナ・半角カタカナを全角ひらがなに変換する方法（関数・VBA）

Excelでデータを統一する際、全角カタカナ（アイウエオ）や半角カタカナ（ｱｲｳｴｵ）を全角ひらがな（あいうえお）に変換したい場合があります。特に、濁点や半濁点（ﾞ ゜）を正しく処理することが重要です。

本記事では、ExcelのVBAを活用して、カタカナを全角ひらがなに変換する方法を解説します。

VBAを使ってカタカナをひらがなに変換する方法

VBAを使えば、Excel上で全角カタカナや半角カタカナを、濁点・半濁点も正しく処理したうえで全角ひらがなに変換できます。

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

事前に変換したいセル範囲をマウスで選択し、VBAマクロを実行すると、その範囲内のカタカナ（全角・半角）が全角ひらがなに変換されます。

Sub ConvertSelectedKatakanaToHiragana()
    Dim cell As Range
    
    ' 選択したセル範囲を処理
    For Each cell In Selection
        If Not IsEmpty(cell.Value) Then
            ' 半角カタカナを全角カタカナに変換 → 全角ひらがなに変換
            cell.Value = StrConv(StrConv(cell.Value, vbWide), vbHiragana)
        End If
    Next cell
    
    MsgBox "選択した範囲のカタカナをひらがなに変換しました。", vbInformation
End Sub

VBAのコード解説

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

使用方法

1. 変換したいセル範囲をマウスで選択する
2. VBAマクロを実行（「開発」タブ →「マクロ」 →「ConvertSelectedKatakanaToHiragana」）
3. 選択した範囲のカタカナがひらがなに変換される

実際の変換例

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

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

Function ToHiragana(str As String) As String
    ToHiragana = StrConv(StrConv(str, vbWide), vbHiragana)
End Function

使用例

Excelのセルに次の数式を入力すると、カタカナがひらがなに変換されます。

=ToHiragana(A1)

まとめ

Excelで全角カタカナ・半角カタカナを全角ひらがなに変換するには、以下の方法が有効です。

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

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