せりかログ

カタカナをひらがなに変換する関数したかったのだけれど、ググるとPHONETIC関数使えと出てくる
って、どんなデータにもふりがな入ってると思うな－

半角カナを全角カナに変換する JIS関数 はあるのに、全角カナをひらがなに変換する関数はなさげ
仕方ないので関数を作成

一応こんな感じになった

Function toKana(k As Range)
    Dim str As String
    
    i = 1
    Do While (1)
        letter = Mid(k.Value, i, 1)
        If (letter = "") Then
            Exit Do
        ElseIf (AscW("ァ") <= AscW(letter) And AscW(letter) <= AscW("ン")) Then
            letter = ChrW(AscW(letter) - AscW("ァ") + AscW("ぁ"))
        End If
        str = str & letter
        i = i + 1
    Loop

    toKana = str
End Function

使い方

おもむろにエクセルのvbaエディタ開いて、標準モジュール挿入して上のコードをコピペ
あとは、セルに = toKana("カタカナ") とかいれてあげると、ひらがなで表示されるはず

注意

ひらがなのない ヴ、ヵ、ヶ の３文字は変換できません
これらはカタカナのまま残ります...タブン
"ウ゛"のように置換してもいいだろうけどね

参考サイト

ぐぐってでてきたいろいろなところ

検索用

[excel] [vba] [関数] [マクロ] [カタカナ] [ひらがな] [変換]