Excel VBA中Select Case结合AND的函数返回异常问题求助

嘿，我立马发现你这个VBA函数的问题啦！核心原因是**Select Case的条件语法使用错误**——VBA不支持用And拼接两个Is类的比较条件，这种写法会被误判，导致除0以外的所有值都错误返回Band 2。

为啥原来的代码会出错？ #

看你这段有问题的条件：

Case Is >= 0.1 And ARR <= 150000

VBA无法识别这种“双条件拼接”的写法，它会把整个表达式当成一个布尔值（True/False），然后拿这个值和输入的ARR做对比，完全偏离了你想要的区间判断逻辑，所以所有非0数值都误匹配到这个Case，返回Band 2。

修复后的正确代码 #

把区间条件改成VBA支持的To语法（用来指定连续数值范围），逻辑就清晰准确了：

Function Band(ARR)
    Select Case ARR
        Case 0
            Band = 1
        Case 0.1 To 150000
            Band = 2
        Case 150000.01 To 500000
            Band = 3
        Case 500000.01 To 1500000
            Band = 4
        Case Is >= 1500000.01
            Band = 5
        Case Else
            Band = 6
    End Select
End Function

额外优化小建议 #

• 可以给参数ARR指定数据类型，比如写成Function Band(ARR As Double)，避免潜在的类型转换问题
• 如果你的输入都是整数，可把区间的小数调整为整数（比如把0.1改成1），更贴合实际需求
• 记得测试边界值：比如输入150000会返回Band 2，输入150000.01返回Band 3，完全符合你的规则

现在再测试输入1000万，就能正确返回Band 5啦！

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