Excel VBA中“Next without For”错误排查及动态数组日历实现问题

我帮你梳理下问题根源和修复方案，毕竟从静态数组切到动态数组时，很容易踩语法和逻辑的双重坑：

1. 直接触发"Next without For"的语法问题 #

你的代码里最外层的If Cells(stRow + 1, stCol) = Empty Then判断没有对应的End If闭合——VBA语法要求每个If必须有匹配的End If，编译器找不到For对应的收尾Next，就抛出了这个错误。

2. 隐藏的逻辑隐患（不修复会触发新错误） #

除了语法问题，代码还有几个容易崩溃的点：

• 当i循环到数组最后一个元素（UBound(varDate)）时，i + 1会直接超出数组下标范围，触发下标越界错误。
• 循环内反复判断Cells(stRow+1, stCol)是否为空，但这个单元格的值在循环过程中不会改变，导致所有循环迭代都会走同一个分支，完全达不到遍历匹配的效果。
• 动态数组默认是0基的（如果用ReDim varDate(n)，下标从0到n-1），如果你的静态数组是1基的，切换后会出现匹配错位。

3. 修正后的完整代码 #

我调整了逻辑，先初始化nameRow，再安全遍历动态数组，同时规避越界和匹配问题：

' 假设你已正确初始化动态数组varDate、varName，且两者长度一致
Dim stRow As Long, stCol As Long, nameRow As Long
Dim i As Long, Fday As Date ' 确保Fday为日期类型，避免格式匹配错误

' 先初始化nameRow的起始值
nameRow = stRow + 1
' 如果初始单元格不为空，自动找到该列第一个空行（可根据你的需求调整）
If Not IsEmpty(Cells(stRow + 1, stCol)) Then
    Do Until IsEmpty(Cells(nameRow, stCol))
        nameRow = nameRow + 1
    Loop
End If

' 安全遍历动态数组，覆盖所有元素
For i = LBound(varDate) To UBound(varDate)
    ' 用DateValue统一日期格式，避免因存储格式不同导致匹配失败
    If DateValue(Fday) = DateValue(varDate(i)) Then
        csheet.Cells(nameRow, stCol) = varName(i)
        ' 若每个日期对应一行，匹配后下移nameRow准备下一个填入
        nameRow = nameRow + 1
    End If
Next i

额外调试提示 #

• 初始化动态数组时，建议明确指定下标范围（比如ReDim varDate(1 To arrCount)），和你之前的静态数组保持一致，避免下标混乱。
• 可以在循环前加一句Debug.Print LBound(varDate), UBound(varDate)，确认动态数组的下标范围是否符合预期。
• 日期匹配时务必统一格式，否则很容易出现"明明日期一样却匹配不上"的情况。

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