VBA中使用多Case的<>语句无法运行，请求排查问题原因

早上好/下午好呀！针对你遇到的VBA多Case搭配<>运算符无法运行的问题，我总结了几个最常见的踩坑点，你可以对照排查下：

• Case语句中<>的语法错误
  VBA的Select Case结构里，直接使用Case <> 目标值是不符合语法规范的，必须加上Is关键字。
  ❌ 错误写法：

  Select Case myVariable
      Case <> 100 ' 这里会触发编译错误
          MsgBox "不是100"
  End Select
  

  ✅ 正确写法：

  Select Case myVariable
      Case Is <> 100
          MsgBox "不是100"
  End Select
  

• 多Case条件的逻辑覆盖问题
  如果你的多个Case都用了<>条件，很容易出现逻辑重叠或遗漏，导致代码执行不符合预期。比如下面的代码，当num=3时只会触发第一个Case，第二个永远不会执行：

  Select Case num
      Case Is <> 1
          MsgBox "不是1"
      Case Is <> 2
          MsgBox "不是2"
  End Select
  

  如果你想排除多个值，建议用Case Else来处理所有未匹配的情况，或者明确列出允许的范围：

  Select Case num
      Case 1, 2
          MsgBox "是1或2"
      Case Else
          MsgBox "既不是1也不是2"
  End Select
  

• 数据类型不匹配
  如果你的变量类型和Case中用于比较的值类型不兼容，会触发类型转换错误。比如字符串变量和数字直接用<>比较：
  ❌ 错误示例：

  Dim inputStr As String
  inputStr = "Hello"
  Select Case inputStr
      Case Is <> 5 ' 字符串与数字直接比较，报错
          MsgBox "不是数字5"
  End Select
  

  ✅ 修正后（确保类型一致）：

  Dim inputStr As String
  inputStr = "Hello"
  Select Case inputStr
      Case Is <> "5"
          MsgBox "不是字符串'5'"
  End Select
  

• 遗漏Case Else导致的“无响应”
  如果所有Case的<>条件都没覆盖到当前变量的值，程序会跳过所有Case块，如果你没写Case Else，就会误以为代码没运行。建议在复杂的Select Case结构里加上Case Else，处理所有未明确匹配的情况。

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