Excel VBAでカタカナをひらがなに変換する方法

2025.06.262026.01.27

「Excelでカタカナをひらがなに変換したいけれど、どうすればいいのか分からない…」そんなお悩みをお持ちの方に向けて、初心者でも安心してできる方法をご紹介します。特別な知識は不要で、数行のコードを入力するだけで、あっという間に変換が可能です。

Excel VBAでカタカナをひらがなに変換する方法
よくある質問や疑問
まとめ

Excel VBAでカタカナをひらがなに変換する方法

Excelのイメージ

VBAエディタを開こう

まず、Excelを開き、以下の手順でVBAエディタを開きます。

Excelの「開発」タブをクリックします。もし「開発」タブが表示されていない場合は、「ファイル」＞「オプション」＞「リボンのユーザー設定」で「開発」にチェックを入れて表示させてください。
「Visual Basic」をクリックしてVBAエディタを開きます。

マクロコードを入力しよう

VBAエディタが開いたら、以下のコードを入力します。

vba

Sub ConvertKana()

    Dim ws As Worksheet

    Dim targetRange As Range

    Dim cell As Range
    ' シートと範囲の設定

    Set ws = ThisWorkbook.Sheets("Sheet1")

    Set targetRange = ws.Range("")
    ' 範囲内のセルをループ

    For Each cell In targetRange

        cell.Value = StrConv(cell.Value, vbHiragana)

    Next cell

MsgBox "変換が完了しました。", vbInformation, "操作完了" End Sub

このコードは、Sheet1のからまでのセルのカタカナをひらがなに変換します。

マクロを実行しよう

コードを入力したら、以下のいずれかの方法でマクロを実行します。

VBAエディタ内で「実行」ボタンをクリックします。
Excelシート上にボタンを挿入し、そのボタンにマクロを割り当てて実行します。

よくある質問や疑問

Q1: ひらがなをカタカナに変換することはできますか？

はい、できます。コード内の `vbHiragana` を `vbKatakana` に変更することで、ひらがなをカタカナに変換できます。

Q2: 半角カタカナも変換できますか？

半角カタカナの変換には、`StrConv` 関数を2回重ねて使用します。まず、`vbKatakana` でカタカナに変換し、その後 `vbNarrow` で半角に変換します。

Q3: 変換後のデータを元のセルに上書きしたくない場合はどうすればいいですか？

変換後のデータを隣のセルに表示させたい場合は、以下のようにコードを変更します。

vba

cell.Offset(0, 1).Value = StrConv(cell.Value, vbHiragana)

これにより、変換結果が元のセルの隣のセルに表示されます。

まとめ

Excel VBAを使うことで、カタカナとひらがなの変換を簡単に行うことができます。特別な知識は不要で、数行のコードを入力するだけで、業務の効率化が図れます。ぜひ、今回ご紹介した方法を試してみてください。

他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。