如何向数组传值并遍历数据集？Excel滚动求和循环实现问询

嘿，我来帮你搞定这两个VBA相关的问题，一步步拆解给你看：

在VBA里，数组是批量处理数据的高效工具，传递值和遍历的方法分几种常见场景：

• 从单元格区域直接赋值数组
  这是最省心的方式，直接把单元格区域的数值批量装进数组（注意：这种方式得到的是二维数组，即使是单列/单行区域，行号和列号默认从1开始）：

  Dim dataArr As Variant
  ' 把E列已使用区域的值传给数组
  dataArr = ThisWorkbook.Sheets("你的工作表名").Range("E1:E" & Cells(Rows.Count, "E").End(xlUp).Row).Value
  

• 手动给数组赋值
  不管是静态数组（长度固定）还是动态数组（可调整长度），都能手动逐个赋值：

  ' 静态数组（提前指定长度）
  Dim staticArr(1 To 5) As Integer
  staticArr(1) = 10
  staticArr(2) = 20
  ' ...依次完成后续赋值
  
  ' 动态数组（先声明再重定义长度）
  Dim dynamicArr() As String
  ReDim dynamicArr(1 To 3)
  dynamicArr(1) = "苹果"
  dynamicArr(2) = "香蕉"
  

• 遍历数组的常用方法
  针对二维数组（比如从单元格来的）用嵌套循环，一维数组用单循环或For Each：

  ' 遍历从单元格获取的单列二维数组
  Dim i As Long
  For i = LBound(dataArr, 1) To UBound(dataArr, 1)
      Debug.Print "第" & i & "行的值：" & dataArr(i, 1)
  Next i
  
  ' 遍历一维数组的简便方式
  Dim item As Variant
  For Each item In staticArr
      Debug.Print item
  Next item
  

你的需求是固定长度的滚动窗口求和（比如200行，由输入框指定），每次窗口下移1行直到覆盖所有E列数据。我给你写完整的可运行逻辑，包含输入验证、循环控制和两种实现方式：

基础版（直接逐行计算输出） #

Sub RollingSum()
    Dim ws As Worksheet
    Dim windowSize As Long
    Dim lastRow As Long
    Dim startRow As Long
    Dim sumResult As Double
    
    ' 指定目标工作表，替换成你实际的表名
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 弹出输入框获取窗口行数，做简单有效性验证
    On Error Resume Next
    windowSize = Application.InputBox("请输入求和的连续行数：", "滚动窗口设置", 200, Type:=1)
    On Error GoTo 0
    ' 用户取消输入或输入无效时直接退出
    If windowSize <= 0 Then Exit Sub
    
    ' 获取E列最后一行有数据的单元格行号
    lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
    
    ' 初始化窗口起始行（如果你的数据从第1行开始，改成1即可）
    startRow = 2
    
    ' 核心循环：只要窗口的最后一行不超过E列最后一行，就继续滚动
    Do While startRow + windowSize - 1 <= lastRow
        ' 计算当前窗口的求和结果
        sumResult = Application.Sum(ws.Range("E" & startRow & ":E" & startRow + windowSize - 1))
        
        ' 把结果输出到指定位置（示例是F列对应窗口的最后一行，可自行修改）
        ws.Range("F" & startRow + windowSize - 1).Value = sumResult
        
        ' 窗口下移1行，准备下一次计算
        startRow = startRow + 1
    Loop
    
    MsgBox "滚动求和完成！", vbInformation
End Sub

进阶版（用数组存储结果，提升效率） #

如果数据量很大，频繁读写单元格会变慢，用数组存储所有求和结果后一次性输出更高效：

Sub RollingSumWithArray()
    Dim ws As Worksheet
    Dim windowSize As Long
    Dim lastRow As Long
    Dim startRow As Long
    Dim sumArr() As Double
    Dim arrIndex As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    windowSize = Application.InputBox("请输入求和的连续行数：", "滚动窗口设置", 200, Type:=1)
    If windowSize <= 0 Then Exit Sub
    
    lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
    ' 计算结果数组的长度：总共有「最后一行 - 窗口长度 + 1」个求和结果
    ReDim sumArr(1 To lastRow - windowSize + 1)
    arrIndex = 1
    startRow = 2
    
    Do While startRow + windowSize - 1 <= lastRow
        sumArr(arrIndex) = Application.Sum(ws.Range("E" & startRow & ":E" & startRow + windowSize - 1))
        arrIndex = arrIndex + 1
        startRow = startRow + 1
    Loop
    
    ' 把数组一次性输出到F列（从F2开始）
    ws.Range("F2:F" & 1 + UBound(sumArr)).Value = Application.Transpose(sumArr)
    MsgBox "滚动求和完成！结果已存入数组并批量输出到F列", vbInformation
End Sub

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