为何VBA中0大于空字符串但Excel中相同比较结果不同？

1. Excel工作表比较规则 #

Excel工作表内置了独立的类型优先级排序：文本 > 数值 > 逻辑值 > 错误值，空文本""属于文本类型，优先级高于所有数值，因此任意数值和空文本比较时，数值 > ""、数值 < ""都会返回FALSE，和你测试的结果一致。

2. VBA比较逻辑差异 #

你观察到的VBA异常结果，是VBA变体（Variant）类型的隐式转换规则和VBA与Excel工作表的两套独立比较引擎共同导致的：

• 你直接执行Debug.Print 0 > ""抛出类型不匹配错误，是因为此时两个值分别为明确的整数类型和字符串类型，VBA默认不允许不同基础类型的直接比较，因此报错。
• 当你从Excel单元格读取值时，返回的默认类型是Variant：如果读取的是空单元格/公式返回的""，返回的是Variant子类型的字符串或Empty值，和数值类型的Variant比较时，VBA会尝试自动做类型转换，不会直接抛出错误。
• 转换规则受模块顶部的Option Compare配置影响：
  • 如果设置为Option Compare Binary（默认值），VBA会尝试将字符串转换为数值进行比较，空字符串转换为数值0，此时0 > ""等价于0 > 0，返回FALSE；
  • 如果设置为Option Compare Text，VBA会将数值转换为字符串进行比较，0转为字符串"0"，空字符串""的字符顺序早于"0"，因此0 > ""等价于"0" > ""，返回TRUE。
    你测试时两个方向比较都返回TRUE，大概率是代码中存在未显式处理的类型转换，比如读取单元格时误取了Text属性而非Value属性，或者存在其他隐式的类型转换逻辑。
    
    

解决方案 #

如果要在VBA中复现Excel工作表的比较逻辑，需要先显式统一两个值的类型，或者调用工作表函数来完成比较：

' 调用工作表函数比较，和Excel工作表结果一致
Debug.Print Application.WorksheetFunction.Gt(0, "")

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