失われた漢字の読みがなの回復するには

質問

漢字項目を入力したときの読みでソートしたいのですがある日突然読みが失われてしまいました。（PHONETIC関数でやってもその漢字しか出てきません）読みを回復する方法はありますか。

回答No.3

HohoPapa · ベストアンサー

既にコメントにありますように、
失われた情報を復活する機能はありませんが、
例えば、作業例に必要なフリガナを埋めることができるのであれば、
問題となている列に、このフリガナを付加することは可能です。

過日の問い合わせの延長ということであれば、
頭数文字のフリガナが埋まればいいでしょうから、
作業列に数文字埋めて、後記のようなマクロを使う対応はいかがでしょうか？

Option Explicit

Sub sample()

　Dim r As Long
　r = 1
　Do
　　If Cells(r, 2).Value = "" Then Exit Do
　　Cells(r, 2).Characters(1, 1).PhoneticCharacters = _
　　　Cells(r, 4).Value
　　r = r + 1
　Loop

End Sub

お礼

ご回答頂きありがとうございます。

回答No.2

msMike

「…失われてしまいました」と聞いて、思わず♪失われた愛を求めて♪のメロディーが浮かびました。(*^_^*)
h ttps://www.youtube.com/watch?v=x6JGj8bgQC8

「読みを回復する方法は」「失われてしま」った状況にも依るので、それを先ず説明すべきかと。

回答No.1

iyonohanamuko

残念ですが、ありません。

お礼

ご回答頂きありがとうございました。