並べ替え用の「ふりがな」を隣のセルに自動表示します。

指定されたセルの「ふりがなテキスト文字列」を右隣のセルに表示します。
(コピーした場合など、指定されたセルに「ふりがなテキスト文字列」が無いこともあります。)

方法
まず、指定したセルに「ふりがなテキスト文字列」があるかどうか。
あれば、「ふりがなテキスト文字列」を変数に入れる。
並べ替えには、変数から、㈱や㈲などは邪魔なので消す。
右隣のセルに、ふりがなを表示する。
ただし、並べ替えに適した「ふりがな」を手入力している場合もあるので、既に入力があれば、なにもしない。


Dim Furigana As String

'入力した際の 「ふりがなテキスト文字列」が無ければ終了
If Cells(ActiveCell.Row, "C").Phonetic.Text = "" Then Exit Sub

'ふりがな列のセルに入力が無ければ、以下を行う(既に手入力されていたら何もしない)
If Cells(ActiveCell.Row, "D").Value = "" Then
    
    ' 「ふりがなテキスト文字列」を変数に持つ
    Furigana = StrConv(Cells(ActiveCell.Row, "C").Phonetic.Text, vbHiragana)
    
    '並べ替えの際に邪魔になる ㈱や㈲を消す
    Furigana = Replace(Furigana, "㈱", "")
    Furigana = Replace(Furigana, "(株)", "")
    Furigana = Replace(Furigana, "㈲", "")
    Furigana = Replace(Furigana, "(有)", "")
    Furigana = Replace(Furigana, "(有)", "")
    Furigana = Replace(Furigana, "(かぶ)", "")
    Furigana = Replace(Furigana, "(かぶ)", "")
    Furigana = Replace(Furigana, "(ゆう)", "")
    Furigana = Replace(Furigana, "(ゆう)", "")
    
    'ふりがなを ふりがな列に表示する
    Cells(ActiveCell.Row, "D").Value = Furigana

End If