Excel VBA中Do While循环误写条件后为何提前终止？

你在代码中写错了循环条件，原本的目标条件是：

Do While i < 2 Or Abs(Range("D4").Value) > 0.01

实际写成了：

Do While i < 2 Or Abs(Range("D4").Value)

当i=2且D4单元格值为-0.000159461时，循环意外终止——按照常规理解，i<2是False，Abs(D4)是非零值应该被视为True，False Or True等价于True，循环应该继续才对，实际却停了，问题出在VBA的运算规则上：

• VBA的Or运算符有两种行为：当操作数都是布尔值时执行逻辑Or，如果混合了布尔值和数值，则会执行按位Or运算。
• 执行按位Or时，VBA会先把布尔值转换为数值：True对应-1，False对应0。同时，按位运算只支持整数类型，小数会被自动取整为整数。
• 你的场景里：
  1. i<2的结果是False，转换为数值0；
  2. Abs(Range("D4").Value)的结果是0.000159461，这是小于1的小数，取整后为0；
  3. 两者做按位Or运算：0 Or 0 = 0；
  4. 循环条件判断时，数值0会被视为False，因此循环终止。

如果Abs(D4)的数值大于等于1（比如1.5），取整后是1，0 Or 1 = 1，非零数值会被判定为True，循环就会继续执行。

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