Excelカタカナをひらがなに一括変換！関数Ngの理由と最速解決法

今注目を集めている Excelカタカナをひらがなに一括変換！関数Ngの理由と最速解決法について、主要な情報を分かりやすく掲載しています。

数千行を超える大規模な名簿や、毎月発生する定期レポートの処理には、Excel カタカナ ひらがな 一括変換 VBAの導入が最適です。Visual Basic for Applicationsには、高度な文字種変換を司るStrConv関数 VBA ひらがな（vbHiragana定数）が用意されており、文字コードレベルで確実な変換が可能です。

以下のマクロコードは、選択したセル範囲内の全角カタカナおよび半角カタカナを、一瞬ですべて「全角ひらがな」に変換して上書きします。

Sub ConvertKatakanaToHiragana() Dim targetRange As Range Dim cell As Range ' 選択範囲を対象に設定 Set targetRange = Selection Application.ScreenUpdating = False For Each cell In targetRange If Not cell.HasFormula And Not IsEmpty(cell.Value) Then ' 半角カタカナを全角に変換した上でひらがなに変換 cell.Value = StrConv(StrConv(cell.Value, vbWide), vbHiragana) End If Next cell Application.ScreenUpdating = True MsgBox "カタカナからひらがなへの一括変換が完了しました。", vbInformation, "処理完了" End Sub

このコードでは、StrConv(cell.Value, vbWide)によって一度全角に正規化してからvbHiraganaを適用しているため、エクセル 半角カタカナ ひらがな 変換でも濁点落ちを起こさず、完璧な品質で処理を完遂できます。