エクセルでひらがなをカタカナに一括変換する方法！半角カタカナも可！

けど、そんな中で悩むことは、

ですよね。

今回はそんなお悩みを解決する

についてまとめます！

完成イメージ

ひらがなをカタカナに変換したいとき、関数だけではうまくいかないことがあります。
今回のゴールは、
・ふりがな（ひらがな）の一覧を、カタカナと半角カタカナに一括で変換する方法
です。
名簿のふりがなを、ボタン1つでカタカナにそろえられるようになります。

なお、漢字からふりがなを取得するPHONETIC関数や、全角⇄半角を切り替えるASC・JIS関数、うまくいかないときの対処法（トラブルシュート）もあわせてご紹介します。

タカヒロ

上の画像が完成形です。A列のふりがな（ひらがな）から、B列にカタカナ、C列に半角カタカナが一括で入りました。

STEP1. 変換したい名簿を用意する

まずは変換したい名簿を用意します。
A列にふりがな（ひらがな）、D列に漢字氏名が入っています。
今回はこのA列のふりがなを、カタカナに変換していきましょう。
B列（カタカナ変換）とC列（半角カタカナ）は空のままにしておきます。
この2列を、これから自動で埋めていきます。

下の表をコピーして、Excelのシートに貼り付けるとそのまま試せます。

※ 数式で求める列は空にしています。すでに値が入っている列はそのまま残して試せます。

STEP2. PHONETIC関数で漢字からふりがなを取得する

そもそもふりがなのデータが手元にない場合は、PHONETIC関数で漢字から取り出せます。
D列の漢字氏名から、ふりがなを取得してみましょう。
セルに =PHONETIC(セル) と入力すると、その漢字の読みが返ります。
ふりがなの種類（ひらがな／カタカナ）はExcelの設定によって変わり、今回はカタカナで返りました。
ひらがなで返る環境もありますが、どちらでも次の手順でカタカナにそろえられます。

STEP3. UPPER関数ではカタカナにならない理由

「大文字にする関数があるなら、ひらがなもカタカナになるのでは？」と思うかもしれません。
そこで試しに =UPPER(セル) を使ってみます。
UPPER関数は半角の英小文字を英大文字に変える関数です。
そのため、ひらがな「さとう たろう」は変わらずそのまま返ってきました。
つまり、ひらがな→カタカナは関数だけでは変換できないのです。

STEP4. VBAのStrConv関数でひらがなをカタカナに一括変換する

ひらがなをカタカナにするには、VBA（マクロ）を使うのが確実です。
Alt+F11でVBAエディターを開き、標準モジュールに次のコードを貼り付けます。

Sub HiraganaToKatakana()
    Dim r As Long
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For r = 2 To lastRow
        Cells(r, 2).Value = StrConv(Cells(r, 1).Value, vbKatakana)
    Next r
End Sub

実行すると、A列のふりがながカタカナになってB列に入ります。
第2引数の vbKatakana が「ひらがな→カタカナ」を行う指定です。
vbKatakana の定数値は 32 なので、StrConv(文字列, 32) と書いても同じ結果になります。

タカヒロ

毎回VBAエディターを開くのが面倒なときは、このマクロをボタンに登録しておきましょう。
クリック1つでカタカナに変換できるようになります。
まずは動きを確かめてから、ボタン化していきましょう。

STEP5. ASC関数で全角カタカナを半角カタカナにする

次は、全角カタカナを半角カタカナに変換してみましょう。
全角→半角はASC関数で変換できます。
C2セルに =ASC(B2) と入力します。
ASC関数は全角の英数字・カタカナを半角に変える関数です。
あとはフィルハンドルでC11までコピーすれば、すべての行が半角カタカナになります。

STEP6. ASC関数の結果を確認する

C列に半角カタカナが入りました。
「サトウ タロウ」が「ｻﾄｳ ﾀﾛｳ」のように、全角のカタカナから半角のカタカナに変わっています。
数式で入れているので、元のB列を修正すればC列も自動で追従します。

STEP7. JIS関数で半角カタカナを全角カタカナに戻す

逆に、半角カタカナを全角カタカナに戻したいときはJIS関数を使います。
半角の「ｻﾄｳ」に =JIS(セル) を使うと、全角の「サトウ」に戻ります。
ASC関数とJIS関数はちょうど反対の働きをする関数です。
どちらも英数字とカタカナ（半角・全角）が対象で、ひらがなには効きません。

STEP8. VBAで半角カタカナまでまとめて一括変換する

ここまでは「カタカナにする」「半角にする」を別々に説明しました。
VBAを使えば、この2つをまとめて一括変換できます。
次のコードは、A列のひらがなをカタカナに変換し、さらに半角カタカナにしてC列まで一度に入れます。

Sub ConvertAll()
    Dim r As Long
    Dim lastRow As Long
    Dim kana As String
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For r = 2 To lastRow
        kana = StrConv(Cells(r, 1).Value, vbKatakana)
        Cells(r, 2).Value = kana
        Cells(r, 3).Value = StrConv(kana, vbNarrow)
    Next r
End Sub

vbNarrow は「全角→半角」を行う指定です。
これで、ボタン1つでカタカナと半角カタカナを同時に作れます。
カンタンですね。

変換方法の比較

ここまでに登場した方法を表にまとめました。
やりたいことに合わせて選ぶと迷いません。

うまくいかないときの対処法（トラブルシュート）

実際に試すと、思ったようにいかないこともあるかもしれません。
よくあるつまずきと対処法をまとめました。

関数の説明

今回使う3つの関数の概要です。
どれも文字変換でよく使う関数なので、違いを押さえておきましょう。

PHONETIC関数（フォネティック）

=PHONETIC(D2)

ASC関数（アスキー）

=ASC(B2)

JIS関数（ジス）

=JIS(C2)

完成

B列に全角カタカナ、C列に半角カタカナがそろいました。
思ったとおりに動きましたか？
ひらがなの名簿から、カタカナと半角カタカナを一度に作れるようになりました。
あとはVBAをボタンに登録しておけば、毎回の変換作業がクリック1つで終わります。

さいごに

いかがでしょうか。

今回は、

についてまとめました。

ひらがな→カタカナは VBAのStrConv、全角カタカナ⇄半角カタカナは ASC関数・JIS関数 と覚えておくと迷いません。
まずは今回のサンプル表で、ぜひ一度試してみてください。
また、他にも便利なExcelの時短テクニックがありますので、よろしければご参照頂ければと思います。