エクセルでユニコードの文字コードをゲットする

エクセルにはUNICODEという関数があるので、文字コードを簡単にゲットできる。

下記の図は「禮」という難しい字をエクセルでさまざまなフォントで表示してみたところ。

C列にUNICODE関数で文字コードを得て、D列でDEC2HEX関数を使って１６進数表示にしている。文字コードは１６進数で表すことが多いので、こちらの方が探しやすいのだ。

同じ文字なのだが、不思議なことにフォントがちがうと文字も違っていたりする。教科書体が他と違うみたい。なぜかしら？

フォント名を一覧するVBAのコードは下記の通り。

Sub doFontName()
    Dim ce As Range

    For i = 2 To 20
        Set ce = Cells(i, 2)
        Debug.Print ce.Font.Name
        Cells(i, 5).Value = ce.Font.Name
    Next
End Sub