Excelのふりがなの逆変換

質問

お世話になります。
ネットより自治体コードをコピペで取り込むと
名称とふりがなが別項目ですね。添付図をご覧ください
これを手入力したようにふりがな付きの文字として一項目にまとめたいのです。
もし、ひと項目としてダウンロード出来ればこれの方が有難いです。
宜しくお願い致します。

回答No.2

kkkkkm · ベストアンサー

こちらにA列B列での見本があります

エクセルで別のセルにあるふりがなを，漢字の上に表示させる方法はありますか
https://okwave.jp/qa/q5813332.html

お礼

ご回答いただきありがとうございます。
VBAの中身は理解できませんが、下記のコードで見事に解決しました。
Sub ふりがなセット()
Dim i
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
With Cells(i, 2)
.Characters(1, Len(.Value)).PhoneticCharacters = Cells(i, 3).Value
.Phonetics.Visible = True
End With
Next i
End Sub

回答No.4

Nobu-W

＞この「ふりがな」が表示されまされません。

その地点で表示はされません　＞＜
　各セルの文字の上に隙間ができるだけです
次の・・・『次にそのまま・・・』を実行してみて下さい

回答No.3

Nobu-W

質問の意図が十分理解できていないので、違ってたらスル～して下さい

その表で説明しますと、団体名がありますよねっ
札幌市から下に函館市までを選択し、マウス右クリックで、ふりが
なの表示を選択します、すると各セルの文字の上に隙間ができます
次にそのまま『alt + shift + ↑矢印』押下で、一語句のふりがなが表
示され、『alt + shift 』から指を離し、エンタ～キ～を二度クリック
します
すると選択セルが移動され・・・その後それの繰り返し・・・
『alt + shift + ↑矢印』押下後、エンタ～キ～を二度クリック
送り仮名が必要なセル分実行してみて下さい
手間だけどそれでいけるかと　^_^;

補足

ご解答ありがとうございます。
＞札幌市から下に函館市までを選択し、マウス右クリッで、
　ふりがなの表示を選択します
　この「ふりがな」が表示されまされません。
尚、コピペは下記URLです。
https://www.j-lis.go.jp/spd/code-address/hokkaido/cms_12214179.html

回答No.1

aokii

以下の、郵便局の郵便番号データダウンロードのURLからダウンロードした、全国一括のデータを使い、自治体コードをVLOOKUP関数で抽出し、エクセルのフォントタブの中のふりがなの表示を行って、使ってみてください。
https://www.post.japanpost.jp/zipcode/dl/kogaki-zip.html

お礼

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