セルの値を全て平仮名にする

---

セルの値を全て平仮名にする

A1のセルの文字列を平仮名文字に変換します。

Sub Sample67()
Range("A1").Value = StrConv(Range("A1").Value, vbHiragana)
End Sub

エクセルＶＢＡテクニック集トップ

---