エクセルでカタカナをひらがなに一括変換!プロが教える関数とVba完全版
エクセルでカタカナをひらがなに一括変換!プロが教える関数とVba完全版に関する最新のニュースを速報でお届けします。関心のある方は必見です。
基幹システムからエクスポートしたCSVデータやWeb上の名簿など、ふりがな情報が存在しないカタカナ文字列をひらがなへ確実に一括変換するには、Excel VBA(マクロ)のStrConv関数を活用するのが現場における最適解です。
VBAのStrConv関数には、文字種を自在に変換する引数(vbHiragana)が組み込まれており、全角カタカナはもちろん、全角ひらがなへの直接変換を瞬時に行えます。以下のマクロコードを使用すれば、選択したセルのカタカナを一瞬でひらがなに置き換えることが可能です。
Sub ConvertKatakanaToHiragana() Dim targetCell As Range ' 画面描画を止めて処理速度を向上 Application.ScreenUpdating = False ' 選択範囲の各セルをループ処理 For Each targetCell In Selection If Not IsEmpty(targetCell.Value) And VarType(targetCell.Value) = vbString Then ' 半角カタカナを全角にしつつ、ひらがなへ変換 targetCell.Value = StrConv(StrConv(targetCell.Value, vbWide), vbHiragana) End If Next targetCell Application.ScreenUpdating = True MsgBox "カタカナからひらがなへの変換が完了しました。", vbInformation, "完了" End Sub
導入手順は、エクセルで「Alt + F11」を押してVBAエディタを立ち上げ、「挿入」メニューから「標準モジュール」を追加して上記コードを貼り付けるだけです。変換したいセル範囲をドラッグ選択した状態でマクロを実行すれば、数千件のデータであっても1秒未満で処理が完了します。