如何在Excel VBA中识别字符串中的emoji并设置字体颜色

核心问题修正点 #

• Target.Characters(x,1)是Characters对象，不能直接与字符串/ChrW值比较，必须通过.Text属性提取字符内容
• 🛑属于Unicode代理对字符（代码点U+1F6D1），超出VBA单ChrW函数的支持范围，需用两个ChrW组合表示，或直接使用字符串常量"🛑"

可运行代码实现 #

Sub HighlightStopEmoji(Target As Range)
    Dim x As Integer
    Dim currentChar As String
    
    If Target.Characters.Count > 0 Then
        For x = 1 To Target.Characters.Count
            currentChar = Target.Characters(x, 1).Text
            ' 两种判断方式二选一即可
            ' 方式1：直接使用Emoji字符串
            If currentChar = "🛑" Then
                Target.Characters(x, 1).Font.Color = RGB(255, 0, 0)
            End If
            
            ' 方式2：用UTF-16代理对组合（对应U+1F6D1）
            ' If currentChar = ChrW(&HD83D) & ChrW(&HDED1) Then
            '     Target.Characters(x, 1).Font.Color = RGB(255, 0, 0)
            ' End If
        Next x
    End If
End Sub

常见错误解析 #

• 错误写法：AscW(Target.Characters(x,1)) → 需改为AscW(Target.Characters(x,1).Text)，因为AscW仅对字符串生效
• 错误写法：ChrW(128721) → 128721是U+1F6D1的十进制值，但ChrW仅支持0-65535的Unicode值，超出范围的字符必须拆分代理对
• 错误写法：Target.Characters(x,1) = ChrW(...) → 必须提取.Text属性后再做比较

自动触发设置（可选） #

若要在单元格内容修改时自动执行标红，可在对应工作表模块中添加：

Private Sub Worksheet_Change(ByVal Target As Range)
    HighlightStopEmoji Target
End Sub

内容的提问来源于stack exchange，提问作者blsp1975