【EXCEL】Unicodeから文字を表示する関数

Posted at 2026-03-22

やること

【Excel】Unicodeを表示する関数 #VBA - Qiitaで文字→Unicodeの関数を用意したが、逆がなかったのでCopilot先生に作成してもらう。

作成された関数

UnicodePointToChar

'------------------------------------------------------------------
' 関数   : UnicodePointToChar
' 説明   : "U+4E00" または "4E00" のような Unicode コードポイント表記から
'          実際の文字（漢字など）を生成して返す。
' 引数   : codePoint - "U+XXXX" または "XXXX" の形式の16進コード
' 戻り値 : 対応する1文字（例: "U+4E00" → "一"）
' 使用例 : =UnicodePointToChar("U+4E00") → "一"
'          =UnicodePointToChar("4E8C")   → "二"
'------------------------------------------------------------------
Function UnicodePointToChar(codePoint As String) As String
    Dim hexStr As String
    Dim code As Long
    
    ' "U+" が付いている場合は取り除く
    hexStr = Replace(UCase(codePoint), "U+", "")
    
    ' 16進 → 数値
    If Len(hexStr) > 0 Then
        code = CLng("&H" & hexStr)
        UnicodePointToChar = ChrW(code)
    Else
        UnicodePointToChar = ""
    End If
End Function

【Excel】Unicodeを表示する関数 #VBA - Qiitaにコメント追加。

GetUnicodeChar

'------------------------------------------------------------------
' 関数   : GetUnicodeChar
' 説明   : セル内の1文字を Unicode コードポイント (U+XXXX) 形式で返す。
' 引数   : Cell - 対象セル（1文字のみを想定）
' 戻り値 : "U+4E00" のような Unicode コードポイント文字列
' 使用例 : =GetUnicodeChar(A1)   （A1 が "一" の場合 → "U+4E00"）
'------------------------------------------------------------------
Function GetUnicodeChar(Cell As Range) As String
    Dim ch As String
    Dim code As Long
    ch = Cell.Value
    If Len(ch) > 0 Then
        code = AscW(ch)
        GetUnicodeChar = "U+" & Hex(code)
    Else
        GetUnicodeChar = ""
    End If
End Function

背景

ニュース |『涼宮ハルヒの御礼』公式サイト

これの一部をコピペすると、以下の通り。

上記の関数で「⽉」のコードを調べる。(「⽓」は参考)

→「U+2F49」は「康熙部首」

UTF8 3byte (e2)

漢字のようで漢字でないUnicodeの「康熙部首」と「CJK部首補助」｜TechRacho by BPS株式会社

おまけ

とりあえず、簡易的な UTF-8<->文字の関数も作成してもらう。

UTF-8->文字

Utf8HexToString

''------------------------------------------------------------------
'' 関数   : HexToUtf8Text
'' 説明   : スペース区切りの UTF-8 16進バイト列を Unicode 文字列に変換する。
''          例: "E3 81 82" → "あ"
'' 引数   : hexString - "E3 81 82" のようなスペース区切りの16進バイト列
'' 戻り値 : UTF-8 として解釈した文字列
'' 使用例 : =HexToUtf8Text("E3 81 82")   → "あ"
'' 注記   : StrConv を使う簡易版(UTF-8 として正しく解釈しない場合がある)
''        : Windows の内部コードページに依存する
''        : ※「バイト列 → Unicode」変換を Windows の現在のコードページ
''        : 　（ANSI コードページ）に従って行う
''        :　　-> ASCII（0x00～0x7F）だけのデータだけ可能
''------------------------------------------------------------------
'Function HexToUtf8Text(hexString As String) As String
'    Dim bytes() As Byte
'    Dim hexParts() As String
'    Dim i As Long
'
'    hexParts = Split(hexString, " ")
'    ReDim bytes(UBound(hexParts))
'
'    For i = 0 To UBound(hexParts)
'        bytes(i) = CByte("&H" & hexParts(i))
'    Next i
'
'    HexToUtf8Text = StrConv(bytes, vbUnicode)
'End Function
'------------------------------------------------------------------
' 関数   : Utf8HexToString
' 説明   : UTF-8 の16進バイト列を ADODB.Stream を使って Unicode 文字列に変換する。
'          HexToUtf8Text よりも UTF-8 の扱いが正確で、複数文字にも強い。
' 引数   : hexText - "E3 81 82 E3 81 84" のようなスペース区切りの16進バイト列
' 戻り値 : UTF-8 としてデコードされた文字列
' 使用例 : =Utf8HexToString("E3 81 82 E3 81 84") → "あい"
' 注記   : ADODB.Stream を使う
'        : Excel の内部コードページに依存しない
'------------------------------------------------------------------
Function Utf8HexToString(hexText As String) As String
    Dim bytes() As Byte
    Dim arr() As String
    Dim i As Long
    
    ' スペース区切りを配列に
    arr = Split(hexText, " ")
    ReDim bytes(UBound(arr))
    
    ' 16進 → Byte
    For i = 0 To UBound(arr)
        bytes(i) = CByte("&H" & arr(i))
    Next i
    
    ' ADODB.Stream を使って UTF-8 → Unicode 変換
    Dim stm As Object
    Set stm = CreateObject("ADODB.Stream")
    
    stm.Type = 1 'binary
    stm.Open
    stm.Write bytes
    stm.Position = 0
    stm.Type = 2 'text
    stm.Charset = "UTF-8"
    
    Utf8HexToString = stm.ReadText
    stm.Close
End Function

文字->UTF-8

StringToUtf8Hex

'------------------------------------------------------------------
' 関数   : StringToUtf8Hex
' 説明   : 文字列を UTF-8 でエンコードし、スペース区切りの16進バイト列に変換する。
'          例: "あ" → "E3 81 82"
' 引数   : text - UTF-8 に変換したい文字列（1文字でも複数文字でも可）
' 戻り値 : UTF-8 の16進バイト列（スペース区切り）
' 使用例 : =StringToUtf8Hex("あ") → "E3 81 82"
'        : ※ADODB.Stream（Charset="UTF-8"）は UTF-8 BOM（EF BB BF） を
'        :   必ず付けるため、除去する
'------------------------------------------------------------------
Function StringToUtf8Hex(text As String) As String
    Dim stm As Object
    Dim bytes() As Byte
    Dim i As Long
    Dim startIndex As Long
    Dim result As String
    
    ' UTF-8 で書き込み
    Set stm = CreateObject("ADODB.Stream")
    stm.Type = 2 'text
    stm.Charset = "UTF-8"
    stm.Open
    stm.WriteText text
    stm.Position = 0
    stm.Type = 1 'binary
    
    bytes = stm.Read
    stm.Close
    
    '--------------------------------------------
    ' UTF-8 BOM (EF BB BF) が付いている場合は除去
    '--------------------------------------------
    If UBound(bytes) >= 2 Then
        If bytes(0) = &HEF And bytes(1) = &HBB And bytes(2) = &HBF Then
            startIndex = 3   'BOM の3バイトをスキップ
        Else
            startIndex = 0
        End If
    Else
        startIndex = 0
    End If
    
    ' バイト列を16進文字列に変換
    For i = startIndex To UBound(bytes)
        result = result & Right("0" & Hex(bytes(i)), 2)
        If i < UBound(bytes) Then result = result & " "
    Next i
    
    StringToUtf8Hex = result
End Function