回答編集履歴
1
追記
answer
CHANGED
|
@@ -1,10 +1,12 @@
|
|
|
1
1
|
たとえばこんな感じでどうでしょう｡
|
|
2
|
+
（追記：ふりがな非表示の時は空白とする条件を追加しました。）
|
|
2
3
|
```VBA
|
|
3
4
|
Sub furigana()
|
|
4
5
|
Dim c As Range, f As String
|
|
5
6
|
For Each c In ActiveSheet.ListObjects(1).ListColumns(2).DataBodyRange
|
|
6
7
|
f = StrConv(c.Offset(, -1).Phonetic.Text, vbHiragana)
|
|
7
|
-
|
|
8
|
+
'c.Value = IIf(f Like "[あ-ん]*", f, "")
|
|
9
|
+
c.Value = IIf(f Like "[あ-ん]*" And c.Offset(, -1).Phonetic.Visible, f, "")
|
|
8
10
|
Next
|
|
9
11
|
End Sub
|
|
10
12
|
|