VBA Split函数分割含'BLAK'的字符串首元素值异常问题咨询

问题场景还原 #

你提到的两个测试代码可复现如下：

Sub TestSplitting_1()
    Dim sColors As String, colorArray As Variant, firstElement As String
    sColors = "BLAK, FTGR, NAVY, REDD, WHIT"
    colorArray = Split(sColors, ",")
    firstElement = colorArray(0)
    
    MsgBox firstElement ' 正常显示"BLAK"
    Range("A1").Value = firstElement ' 单元格无内容
    ' 调试悬浮查看firstElement无显示（连空引号都没有）
End Sub

Sub TestSplitting_2()
    Dim sColors As String, colorArray As Variant, firstElement As String
    sColors = "apple, FTGR, NAVY, REDD, WHIT"
    colorArray = Split(sColors, ",")
    firstElement = colorArray(0)
    
    MsgBox firstElement ' 正常显示"apple"
    Range("A1").Value = firstElement ' 单元格正常写入
    ' 调试悬浮查看firstElement显示正常
End Sub

核心原因：不可见非打印字符干扰 #

问题出在原字符串的BLAK段（或其紧邻位置）存在不可见的非打印字符，常见类型及影响如下：

• 空字符（Chr(0)）：VBA调试器遇到该字符会直接截断显示，Excel单元格也不支持存储该字符，导致写入后无内容；但MsgBox会忽略该字符，正常显示后续可见内容。
• 零宽空格（U+200B）、软连字符等Unicode非打印字符：这类字符肉眼无法察觉，但会干扰调试器的变量渲染逻辑，同时部分字符在Excel中无法正常显示。

临时解决方法的原理 #

你提到在BLAK后添加空格（即把字符串改为BLAK , FTGR...）后恢复正常，是因为Split按逗号分割后，首元素变为BLAK （带空格），原有的隐藏字符要么被排除在该元素外，要么被空格隔离，不再干扰调试显示和单元格写入。

验证隐藏字符的方法 #

可以通过检查字符编码确认问题根源：

Sub CheckHiddenChars()
    Dim sColors As String, firstElement As String, i As Integer
    sColors = "BLAK, FTGR, NAVY, REDD, WHIT"
    firstElement = Split(sColors, ",")(0)
    
    For i = 1 To Len(firstElement)
        Debug.Print "位置" & i & "编码: " & AscW(Mid(firstElement, i, 1))
    Next i
End Sub

运行后查看即时窗口，若出现非66(B)、76(L)、65(A)、75(K)的编码值，即为导致异常的隐藏字符。

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