Excel VBA中Select Case判断含字母字符串时匹配错误如何解决？

错误根源 #

你代码的核心问题是 字符串常量未添加英文双引号：
VBA语法中，所有字符串文本必须用英文双引号包裹，你写的EPA0012没有加引号，会被VBA识别为未声明的变量，默认值为空值Empty，永远无法匹配单元格中实际的"EPA0012"文本，所以符合条件的单元格不会被赋值。
你提到的AO列其余单元格都被填充的问题，属于之前操作留下的旧值，当前你贴出的代码逻辑只有匹配成功时才会给单元格赋值，不会修改不匹配的单元格内容。

修正方案 #

只需要给Case后的匹配目标加上英文双引号即可，你也可以根据需要添加清空旧值、大小写兼容的优化，修正后的完整代码如下：

' 建议在模块顶部加这行，强制变量声明，未定义的变量会直接报错，避免这类隐性问题
Option Explicit

Public Sub Switch_Statement_EPA()
    Dim wsSort As Worksheet
    Set wsSort = Workbooks("Test.xlsm").Worksheets(2)
    With wsSort
        Dim lastRow As Long
        lastRow = .Range("AN" & .Rows.Count).End(xlUp).Row
        
        ' 可选：运行前清空AO列旧值，避免旧数据干扰
        .Range("AO2:AO" & lastRow).ClearContents
  
        Dim rng As Range
        Set rng = .Range("AN2:AN" & lastRow)
        Dim cell As Range
        
        For Each cell In rng
            ' 可选：用UCase统一转大写后匹配，兼容单元格大小写不一致的情况
            Select Case UCase(cell.Value)
                ' 核心修正：给字符串加英文双引号
                Case "EPA0012"
                    cell.Offset(, 1).Value = "Accounting"
            End Select
        Next
    End With
    MsgBox "Done"
End Sub

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