A1セルの先頭1文字のUnicodeコードポイントを取得 アクティブブックのアクティブシートのA1セルに何らかの文字を入力して、以下のSubプロシージャを実行してください。 Sub 文字コード番号を調べる_A1セルの先頭1文字() Dim txt As String txt = Range("A1").Text Debug.Print AscW(txt); Hex(AscW(txt)) End Sub イミディエイトウィンドウに、A1セルに入力されている先頭1文字の、Unicodeコードポイント・文字コード番号が、10進表記と16進表記で出力されます。 VBAではAscW関数で、 Unicodeのコードポイント・文字コード番号が取得できます。 A1セルに入力された文字列のUnicodeコードポイントを取得 Asc系の関数は、引数に指定された先頭1文字しか調べられません。 A1セルに入力され