VBA编写的指数移动平均代码输出异常，请求排查问题

我编写了一段计算指数移动平均（EMA）的VBA代码，运行结果显示在蓝色列，但预期结果应为Excel内置函数计算的黄色列（用于校验）。求找出代码中的疏漏或错误：

原代码 #

Sub ematest()
'Calculate alpha for each periods
Dim alphas As Integer 'smoothing factor short moving average
Dim alphal As Integer 'smoothing factor long moving average

alphas = 2 / (Cells(3, 13).Value + 1)
alphal = 2 / (Cells(3, 14).Value + 1)

'Calculate 50 days Exponential MA

'calculate sema
For m = 53 To 6102
    Cells(m, 13) = (Cells(m, 5) * alphas) + ((1 - alphas) * Cells(m, 9)) 'for Column M
    
Next m

'calculate lema
For n = 203 To 6102
    Cells(n, 14) = (Cells(n, 5) * alphal) + ((1 - alphal) * Cells(n, 10)) 'for Column N
    
Next n

End Sub

核心错误点分析 #

• 数据类型错误：alphas和alphal被声明为Integer（整数类型），但EMA的alpha值是小于1的小数（比如周期50的话，alpha=2/(50+1)≈0.0392），用整数类型会直接截断为0，导致计算完全失效。必须改为Double双精度浮点类型。
• EMA迭代逻辑错误：代码中用Cells(m,9)、Cells(n,10)作为前一期EMA值，但这两个单元格应该是初始的简单移动平均（SMA），后续迭代应该引用上一行的EMA结果（比如Cells(m-1,13)），而非固定列。
• 无工作表限定：直接用Cells引用单元格，未指定具体工作表，若当前激活表切换，会导致计算引用错误。

修正后的代码示例 #

Sub ematest()
'Calculate alpha for each periods
Dim alphas As Double '修正为双精度浮点类型
Dim alphal As Double

'指定工作表，避免激活表切换风险
With ThisWorkbook.Sheets("Sheet1") '替换为你的实际工作表名称
    alphas = 2 / (.Cells(3, 13).Value + 1)
    alphal = 2 / (.Cells(3, 14).Value + 1)

    '计算短期EMA：第52行设为初始SMA值（对应50周期）
    .Cells(52, 13) = .Cells(52, 9)
    For m = 53 To 6102
        '用上一行的EMA结果迭代计算当前值
        .Cells(m, 13) = (.Cells(m, 5) * alphas) + ((1 - alphas) * .Cells(m - 1, 13))
    Next m

    '计算长期EMA：第202行设为初始SMA值（对应200周期）
    .Cells(202, 14) = .Cells(202, 10)
    For n = 203 To 6102
        .Cells(n, 14) = (.Cells(n, 5) * alphal) + ((1 - alphal) * .Cells(n - 1, 14))
    Next n
End With
End Sub

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