PHP转Excel VBA时循环内数组赋值异常问题求解

• 动态数组未指定边界直接赋值
  PHP中$result[]可自动扩容追加元素，VBA仅用Dim result() As String声明动态数组后，未通过ReDim指定数组维度就直接赋值，会触发运行时错误，实际没有任何元素能存入数组。
• 数组类型定义不匹配
  数组定义为String文本类型，存储的差值为整数，类型不兼容会导致WorksheetFunction.Sum计算时跳过所有文本值，结果完全失真。
• 数组扩容未保留原有值
  VBA执行ReDim重定义数组时，默认会清空数组内所有已存入的内容，必须加Preserve关键字才能在调整大小时保留之前的数据，否则数组最终只会留下最后一轮循环的计算值。
• 日期语法写错
  VBA的日期常量必须用#包裹，单引号是VBA的注释符，原代码中写的'2020-01-01'实际是注释内容，传给DateDiff的参数是空值，根本算不对月份差。

Sub CalcDiffTotal()
    ' 计算两个日期的月份差，和PHP的monthDiff逻辑对齐
    Dim monthDiff As Integer
    monthDiff = DateDiff("m", #1/1/2020#, #2/10/2021#) + 1
    
    Dim offset As Integer
    offset = 5
    
    ' 定义整数类型动态数组，匹配存储的差值类型
    Dim result() As Integer
    Dim writePos As Long
    writePos = 0
    
    Do While monthDiff >= offset
        ' 每次写入前扩容数组，加Preserve保留之前的值
        ReDim Preserve result(0 To writePos)
        result(writePos) = monthDiff - offset
        writePos = writePos + 1
        offset = offset + 3
    Loop
    
    ' 计算数组总和，预期输出18
    Dim total As Integer
    total = WorksheetFunction.Sum(result)
    Debug.Print total
End Sub

• 两个日期计算得到的月份差共14，和PHP脚本计算结果一致
• 循环迭代完全匹配PHP流程：
  • 第1轮：offset=5，存入值14-5=9，offset更新为8
  • 第2轮：offset=8，存入值14-8=6，offset更新为11
  • 第3轮：offset=11，存入值14-11=3，offset更新为14
  • 第4轮：offset=14，存入值14-14=0，offset更新为17
  • 下一轮判断：14 <17，退出循环
• 最终数组元素为[9, 6, 3, 0]，求和结果为18，完全匹配PHP预期输出。

• VBA没有PHP式的自动数组追加语法，循环中填充数组时，需要主动维护写入索引，每次写入前完成数组边界调整。
• 若循环次数多、数据量大，可先遍历计算总元素个数，一次性完成数组维度定义后再填充，减少反复ReDim Preserve带来的性能损耗。
• 使用ReDim Preserve时，仅能调整数组最后一维的大小，调整其他维度会触发运行时错误。

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