VBA A列の「ふりがな」の付加されているセルの「ふりがなだけ」を、B列に表示したい

Question

前提・実現したいこと

Excelシート上のA列セルに他の人が記載した「漢字氏名」があり、その文字上に「ふりがな」が表示させてありました。
中には、「ふりがな」が入っていないセルもあります。
そこで、既存の「ふりがな」の状態を保ちつつ、B列にA列の「ふりがな」のみ表示したいのです。

関数としては、添付ファイルのようにできるのですが、マクロ・VBAでどのように記載したら良いかわからないため、こちらに投稿します。

データは、2行目～100行目、場合によっては、増減します（いわゆる繰り返しです）。
また、既存の「ふりがな」の状態を保ちつつ、
と記載したのは、実際には、キラキラネーム等があるため、こちらで敢えて既存の「ふりがな」に手を加えないためです。

お忙しいところ恐縮ですが、ご教示よろしくお願いいたします。

Answer 1

たとえばこんな感じでどうでしょう｡
（追記：ふりがな非表示の時は空白とする条件を追加しました。）

Sub furigana()
    Dim c As Range, f As String
    For Each c In ActiveSheet.ListObjects(1).ListColumns(2).DataBodyRange
        f = StrConv(c.Offset(, -1).Phonetic.Text, vbHiragana)
       'c.Value = IIf(f Like "[あ-ん]*", f, "")
        c.Value = IIf(f Like "[あ-ん]*" And c.Offset(, -1).Phonetic.Visible, f, "")
    Next
End Sub

Comments

[ti_0002]

jinoji様
早速の回答ありがとうございます。
いただいた、codeを実際のシートにて走らせてみました。
なるほど！テーブルに対してこういった書き方ができるのですね。
一点ご教示ください。
A列に氏名（漢字）の上に、「ふりがな」記載がない場合は、空白でB列に表示させたいのですが。
お忙しいところ恐縮ですがよろしくお願いします。

[jinoji]

ふりがな非表示の時は空白とする条件を追加してみました。

[ti_0002]

jinoji様
当方、まったくのVBA初心者にて、関数を使用して何度かコードを記載してみましたが、エラーになってしまいました。この度は、2度に渡る丁寧な回答ありがとうございました。

[jinoji]

エラーが出たとのことですが、どの行でなんというエラーが出たのでしょうか。

[ti_0002]

jinoji様
当方の説明不足で申し訳ございません。
jinoji様が作成していただいたコードは、おかげさまでエラー発生しておりません。

私が当初、作成した見よう見まねにて作成した以下のVBAコード

Sub 既存A列ふりがなをB列へ()
Dim i As Integer
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, "B").Value = "=IF(CODE(PHONETIC(i,"A"))<=9587,PHONETIC(i,"A"))"
Next i
End Sub
結果　コンパイルエラー：構文エラー

発生してしまい、解決方法がわからずこちらへ投稿した次第です。

お騒がせしてすみません。

[jinoji]

あ、そういうことですね。理解しました。