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

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

Excelでデータを整理する際、全角ひらがな（あいうえお）を全角カタカナ（アイウエオ）に統一したい場合があります。特に、名前のフリガナなどのデータ入力のフォーマットを統一したい場合や、システム連携時にカタカナでの入力が求められる場合に便利です。

本記事では、Excelの関数を使った方法と、VBAを利用した方法の両方を解説します。

関数を使って全角ひらがなを全角カタカナに変換する方法

Excelの標準関数では、ひらがなをカタカナに変換する機能はありません。しかし、VBAのユーザー定義関数を利用することで、関数として使用できます。

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

VBAを使えば、Excel上で全角ひらがなを全角カタカナに変換することが可能です。

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

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

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

VBAのコード解説

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

使用方法

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

実際の変換例

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

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

Function ToKatakana(str As String) As String
    ToKatakana = StrConv(str, vbKatakana)
End Function

使用例

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

=ToKatakana(A1)

まとめ

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

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

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