Sub Sample14() 'ブラウザソフトなど他のアプリケーションからコピーしたものなどには振り仮名情報がありません。 'A1のセルにふりがなをセットします。 Range("A1").SetPhonetic End Sub