VBA For循环无法步进执行问题求助

嘿，这问题我熟！你的For循环直接跳过不执行，核心原因出在变量类型不匹配上：

你把循环变量a声明成了Long（长整型），但却用了带小数的步长Step -0.25。Long类型只能存储整数，所以每次尝试给a减去0.25时，小数部分会被直接截断，a的值永远停在55不变。这样循环的起始值55始终大于终止值15，循环条件根本不满足，自然就直接跳过了。

修复方法 #

把a的类型改成Double（双精度浮点型），让它能处理小数步长：

Sub Test_3()
 Dim b As Double
 Dim a As Double ' 这里把Long改成Double
 Dim xvalues As Double
 Dim yvalues As Double ' 你原来的变量名打错了，是yvalues不是yvales哦
 b = 1
 For a = 55 To 15 Step -0.25
 xvalues = a
 yvalues = (-0.000005023488366 * ((xvalues) ^ 6)) + (0.000988717992 * ((xvalues) ^ 5)) - (0.07843393602 * ((xvalues) ^ 4)) + (3.20338362 * ((xvalues) ^ 3)) - (70.82720195 * ((xvalues) ^ 2)) + (807.4320705 * xvalues) - 3512.053837
 Cells(1 + b, 12) = yvalues
 b = b + 1
 Next a
End Sub

另外顺便提一句：你原来的变量名yvales打错了，应该是yvalues，虽然VBA不严格区分大小写，但规范命名能避免后续不必要的坑~

调试小技巧 #

以后遇到这种循环不执行的情况，可以在循环第一行加个Debug.Print a，然后打开立即窗口（Ctrl+G）运行代码，就能看到循环变量的实际值，很快就能定位到类型问题啦！

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