Excelでふりがなを編集する方法！VBAの一括ふりがな設定も！

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

ですよね。

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

についてまとめます！

完成イメージ

氏名の一覧にふりがなを付けるときは、PHONETIC関数を使うとセルに付いた読みを列に取り出せます。
ただし、Excelの自動判定は「陽菜＝ひな」のように誤読することがあり、そのままでは正しいふりがなになりません。
今回は
・PHONETIC関数でふりがなを一括で出し、誤読した分だけを直す方法
をゴールにします。
B列にPHONETICの結果、C列に修正後のふりがなを並べた状態が完成形です。

なお、画面にルビを表示するだけの方法や、VBAでまとめて設定する方法、うまくいかないときの対処法（トラブルシュート）もあわせてご紹介します。
早速実装して試してみましょう！

上の画像が完成形です。B列にふりがな（PHONETIC）、C列に修正後のふりがなを並べました。誤読していた3件は色を変えています。

STEP1. 氏名の一覧を用意する

まずはふりがなを付けたい氏名の一覧を用意します。
今回は10件の氏名をA列に手入力で入れました。
B列は「ふりがな（PHONETIC）」、C列は「修正後ふりがな」の見出しだけ用意しておきます。
B列とC列は、このあと埋めていきます。

STEP2. PHONETIC関数でふりがなを出す

ふりがなを取り出すには PHONETIC関数を使います。
B2セルを選び、次のように入力します。

=PHONETIC(A2)

PHONETIC関数は「元のセルに付いているふりがな情報（読み）」を取り出します。
セルを選んで数式バーに入力するところを確認してみましょう。
実際の入力画面です。
入力中は関数の引数のヒントが出るので、参照セルが合っているか確認しながら進められます。
Enterで確定すると、B2セルにふりがな「さとう たろう」が表示されます。

タカヒロ

エクセルで「ふりがな」を表示させるには文字列を手入力する必要があります。「コピー＆ペースト」や変換したデータの場合ふりがな情報を表示されませんのでご注意ください。

STEP3. フィルで下まで一括で入れる

B2セルに数式が入ったら、あとはフィルで下までコピーするだけです。
B2セルを選び、右下の小さな四角（フィルハンドル）にマウスを合わせます。
カーソルが ＋ に変わったら、そのままB11セルまで下へドラッグします。
マウスが使いにくいときは、B2をコピー（Ctrl+C）してからB3:B11を選んで貼り付け（Ctrl+V）でもかまいません。
B列に10件分のふりがなが一気に入りました。
1行目だけ手で入力して、あとはフィルで下げるだけなのでカンタンですね。

ただし、よく見ると一部のふりがなが誤読されています。
渡辺 陽菜が「わたなべ ひな」、山本 一が「やまもと いち」、佐藤 愛が「さとう あい」になっていますね。
ここまでが「ふりがなを一括で出す」作業です。
次のステップで、この誤読を直していきます。

STEP4. 誤読したふりがなを直す

PHONETIC関数は元のセルに付いた読みをそのまま返すだけなので、読み自体が間違っていると間違ったまま出てしまいます。
ここが、ふりがなでつまずきやすいポイントです。
直し方は2通りあります。

方法A：ふりがなの編集で読みを直す

読みそのものを直したいセル（たとえばA8の「山本 一」）を選び、ホーム タブ → ふりがなの編集をクリックします。

表示された画面で読みを「はじめ」に打ち替えて「変更」を押すと、セルの読み情報が更新されます。

すると、B列のPHONETICの結果も「やまもと はじめ」に変わります。

B列の文字を直接直すのではなく、元の氏名セルに付いた読みを直すのがポイントです。
そうしないと、あとで数式を入れ直したときに誤読に戻ってしまいます。

方法B：正しい読みを別の列に用意する

今回は、C列にあらかじめ正しい読み（修正後ふりがな）を用意しました。
誤読していた3件は、B列をオレンジ、C列を緑で色分けしています。
このC列を使って、あとでVBAでまとめて読みを付け直す方法もご紹介します。

STEP5. 表示だけルビ（ふりがな）を出したいとき

「印刷や計算ではなく、画面で読みを確認したいだけ」というときは、ふりがなの表示が便利です。
セルを選び、ホーム タブ → ふりがなの表示をクリックすると、

漢字の上に小さくルビが表示されます。

元に戻したいときは、同じ場所にあるふりがなの非表示をもう一度クリックします。

ルビはセルの値ではなく画面上の飾りなので、PHONETIC関数の結果には影響しません。

タカヒロ

なお、このルビはそのままでは印刷されません。
印刷して読みを残したいときは、今回のようにPHONETIC関数で別の列にふりがなを出しておくと確実です。

上の画像はセルの値の部分です。
実際の画面では、この漢字のすぐ上にルビが重なって表示されます。

STEP6. VBAでまとめて設定する

件数が多いときや、毎回同じ作業をするときはVBAでまとめて処理するのがおすすめです。

まずはこの表をコピペしてエクセルに張り付けます。

修正後ふりがなをA列の名前のふりがなに割り当てていきます。

Alt+F11でVBAエディターを開き、標準モジュールに次のコードを貼り付けます。

C列の正しい読みをA列セルに付け直す処理をします。

Sub FixReading()
    Dim r As Long
    For r = 2 To 11
        With Cells(r, 1)
            .Phonetics.Delete
            .Phonetics.Add 1, Len(.Value), Cells(r, 3).Value
        End With
    Next r
End Sub

Cells(r, 1) はA列の氏名セル、Cells(r, 3) はC列の修正後の読みです。
元のセルのふりがな読みを、C列の内容で上書きしています。

VBAを実行しましょう。

何も反応が起きませんが、裏ではふりがなが変更されています。

セルを選び、ホーム タブ → ふりがなの表示をクリックすると、

はい！　ふりがなが一括設定されていますね！

次に以下のコードを貼り付けます。

Sub SetFurigana()
    Dim r As Long, lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For r = 2 To lastRow
        Cells(r, 2).Formula = "=PHONETIC(A" & r & ")"
    Next r
End Sub

このコードは、A列の最終行まで「ふりがな（PHONETIC）」列を一括で埋めます。
フィルハンドルでドラッグする手間がなくなり、件数が増えても一瞬で終わります。

実行結果がこちらです。

はい！一気にふりがなを表示させることができましたね！

タカヒロ

PHONETIC関数は「読みを自動で作る」のではなく、セルに付いている読みを取り出すだけという点がポイントです。
読みそのものを直したいときは、元のセルのふりがなを編集しましょう。
ここさえ押さえれば、あとはフィルかVBAで一括処理なのでカンタンですね。

3つの方法の比較

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

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

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

関数の説明

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

=PHONETIC(A2)

さいごに

いかがでしょうか。

今回は、

についてまとめました。

まずは今回のサンプル表で、ぜひ一度試してみてください。
「PHONETIC関数で一覧化 → 誤読だけふりがなの編集で直す」流れなら、件数が多くてもラクに進められますよ。
また、他にも便利なExcelの時短テクニックがありますので、よろしければご参照頂ければと思います。