Excel VBA计算股票收益率问题：仅返回最后值无法按序输出

核心问题分析 #

• 数组维度不匹配：VBA中将单元格区域赋值给变体数组时，会生成基于1的二维数组（格式为数组(行号, 列号)），但你声明的是一维数组并手动指定0基范围，导致索引调用错误。
• 循环范围越界：原数据B4:B270共267个值，你循环到268会超出数组索引范围，错误的索引导致大部分计算无效，最终仅最后一次循环（未触发明显报错）写入了值。
• 未指定目标工作表：Cells(i + 20, 3)默认操作当前激活工作表，若不是你需要的目标表，会导致结果写入位置错误或被覆盖。

修正后的代码 #

Option Explicit
Sub VolCorrChole()
    Dim KOSPI200 As Variant
    '直接将数据区域赋值给变体数组，自动生成二维数组（1基）
    KOSPI200 = Sheets("Adj Index").Range("B4:B270").Value
    
    Dim targetWs As Worksheet
    '指定目标工作表，替换为你实际需要的工作表名称
    Set targetWs = ThisWorkbook.Sheets("目标工作表")
    
    Dim i As Long
    '循环范围：从第2个数据到最后一个，计算相邻收益率
    For i = 2 To UBound(KOSPI200, 1)
        '写入目标工作表的C列，从第22行开始（i=2时对应22行）
        targetWs.Cells(i + 18, 3) = (KOSPI200(i, 1) / KOSPI200(i - 1, 1)) - 1
    Next i
End Sub

关键修改说明 #

• 去掉手动ReDim数组的操作，直接通过区域赋值获取二维数组，避免维度错误。
• 使用UBound(KOSPI200, 1)动态获取数据行数，无需硬编码数字，适配数据量变化。
• 明确指定目标工作表，确保结果写入正确位置。
• 调整循环起始和写入行号：原数据267个值可生成266个收益率，循环从2开始，写入行号对应调整为i+18，保证第一个收益率对应原数据第2个值的逻辑位置。

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