VBA二维字符串数组数值比较结果异常原因咨询

这问题我碰到过好多次啦，核心原因是你搞混了字符串比较和数值比较的逻辑！

你的数组是二维字符串数组，所以StringArray(1,5)和StringArray(1,6)存储的是字符串类型的"150"和"3"，不是数值类型的150和3。当你用>运算符直接比较字符串时，VB/VBA会按照字符的ASCII值逐个对比：

• 先对比两个字符串的第一个字符："1"的ASCII值是49，"3"的ASCII值是51
• 因为49 < 51，所以不管后面的字符是什么，整个字符串"150"都会被判定为小于"3"，这就是为什么你得到的结果是False。

解决办法 #

这里给你两个靠谱的方案：

• 方案一：转换为数值类型再比较（最通用）
  使用CDbl()（转双精度）或CLng()（转长整数）函数把字符串转换成数值后再比较，代码示例：

  If CDbl(StringArray(1, 5)) > CDbl(StringArray(1, 6)) Then 
      MsgBox "第一个数字更大" 
  End If
  

  注意：如果数组里可能存在非数字的字符串，建议先加IsNumeric()判断，避免转换报错，比如：

  If IsNumeric(StringArray(1, 5)) And IsNumeric(StringArray(1, 6)) Then
      If CDbl(StringArray(1, 5)) > CDbl(StringArray(1, 6)) Then 
          MsgBox "第一个数字更大" 
      End If
  Else
      MsgBox "数组中存在非数字元素，无法比较"
  End If
  

• 方案二：补前导零（仅适用于固定长度数字场景）
  如果数组里的数字都是固定长度的（比如都是3位），可以给短数字补前导零，把"3"变成"003"，这样字符串比较的结果就和数值一致了。但这个方法局限性大，只适合特定场景。

内容的提问来源于stack exchange，提问作者Patrick Schöpfer