为何VBA中Select Case语句忽略匹配始终执行Case Else？

你遇到的核心问题是：监视窗口明确显示myslice的值为"Lafarge"，但Select Case的精确匹配分支完全不触发，始终执行Case Else；但改用InStr判断字符串包含关系时，却能正常命中目标分支。

问题根源 #

这种情况90%以上是因为目标字符串包含不可见字符，比如首尾空格、制表符（vbTab）、换行符（vbCrLf）等。这些字符肉眼看不见，但会导致精确匹配（=或Select Case）失败；而InStr是判断子串是否存在，所以不受这些多余字符影响。

比如实际传入的sliceName可能是"Lafarge "（末尾多了一个空格），或者" Lafarge"（开头有空格），看起来和"Lafarge"一样，但长度不同，精确匹配自然不成立。

解决方案 #

先对输入字符串做清理处理，去掉多余的空格和不可见字符，再进行匹配：

1. 基础清理：去掉首尾空格
   用Trim()函数可以快速去除字符串首尾的空格、制表符等空白字符：

   myslice = Trim(sliceName)
   

2. 进阶清理：移除其他不可见字符
   如果还有换行、回车这类字符，可以用Replace()函数逐一替换为空：

   myslice = Trim(sliceName)
   myslice = Replace(myslice, vbTab, "") ' 移除制表符
   myslice = Replace(myslice, vbCrLf, "") ' 移除换行回车
   

3. 验证字符串真实性
   可以在函数里加一行调试代码，查看字符串的实际长度和内容，确认是否有异常：

   Debug.Print "字符串内容：[" & myslice & "]，长度：" & Len(myslice)
   

   执行后打开VBA的「即时窗口」（快捷键Ctrl+G），如果长度不是7（"Lafarge"的字符数），说明肯定有多余字符。

修改后的完整代码 #

Function GetSliceColor(sliceName As String) As Long
    ' 根据切片名称分配颜色
    Dim myslice As String
    
    ' 清理字符串中的多余空白和不可见字符
    myslice = Trim(sliceName)
    myslice = Replace(myslice, vbTab, "")
    myslice = Replace(myslice, vbCrLf, "")
    
    Select Case myslice
        Case "Lafarge"
            GetSliceColor = RGB(51, 153, 51) ' 绿色
        Case "Heidelberg"
            GetSliceColor = RGB(150, 150, 150) ' 灰色
        Case Else
            GetSliceColor = RGB(255, 255, 255) ' 白色
    End Select
End Function

注意：你原来代码里单独的If sliceName = "Lafarge"判断会被后面的Select Case覆盖（如果Select Case走Else，会把颜色重新设为白色），所以直接删掉即可。

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