VBA数组存储整数却被识别为字符串的问题排查

• 第一次赋值TP = Array(Min + 5, Min + Div, ...)：
  Min和Div是数值型变量，它们的运算结果属于数值类型（整数/长整数）。VBA的Array函数会根据传入参数的实际类型创建Variant数组，所以这次TP的元素都是数值型。

• 第二次赋值TP = Array(ProbeTable(P, 4), ...)：
  这里的ProbeTable(P,4)应该是指向工作表单元格的引用。VBA中读取单元格值时，如果单元格的格式是文本格式，或者输入内容时加了单引号（强制文本存储），哪怕显示的是整数，单元格返回的Value属性本质是String类型的Variant。Array函数接收这些字符串参数后，创建的数组元素自然就是字符串类型。

• 条件判断失效的本质：
  字符串和数值直接比较时，VBA的类型转换规则可能导致不符合预期的结果。比如字符串"0"和数值-5比较，VBA会把数值转成字符串"-5"，再按ASCII码顺序比较："0"的ASCII码大于"-"，会判定"0" > -5，但如果是数值0和-5比较，0 > -5是正确的；如果字符串里有隐藏的非数字字符（比如前导空格），还可能直接触发转换错误。用CInt()强制转换后，元素变回数值类型，比较逻辑就回归正常。

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