OfficeType

VBA~WorksheetFunction.Unicharメソッド~Excel

VBAでUNICODE番号に対応した文字を取得したい場合はWorksheetFunction.Unicharメソッド

書き方

WorksheetFunction.Unichar(UNICODE番号)

例として下の画像において下のコードを実行するとA列のUNICODE番号に対応した文字がB列に表示されます。

image-01

Sub test1()

Range("B2") = WorksheetFunction.Unichar(Range("A2"))
Range("B3") = WorksheetFunction.Unichar(Range("A3"))
Range("B4") = WorksheetFunction.Unichar(Range("A4"))
Range("B5") = WorksheetFunction.Unichar(Range("A5"))
Range("B6") = WorksheetFunction.Unichar(Range("A6"))

End Sub

image-02