小编Dam*_*ian的帖子

我正在设置一个自动日历，当varDate（）中的相应日期出现在日历中（Fday是日历日期）时，该日历应从varName（）中绘制一个名称。我收到令人困惑的循环中的“下一个没有For”错误。

目的是为name（varName）和date（varName）创建一个动态数组，在其中可以将名称绘制为具有相应日期的日历日。我已经成功使用静态数组根据相应的日期将名称绘制到日历中，但是当我使用动态数组时，这给我带来了麻烦。

stRow = Row with calendar date
stCol = Column with calendar date
nameRow = Row containing persons name (below calendar date)

    For i = LBound(varDate) To UBound(varDate)
      If Cells(stRow + 1, stCol) = Empty Then
       nameRow = stRow + 1
       If Fday = varDate(i) Then
        csheet.Cells(nameRow, stCol) = varName(i)
       End If
   Else
     nameRow = nameRow + 1  
     If Fday = varDate(i + 1) Then
       csheet.Cells(nameRow, stCol) = varName(i + 1)
     End If
    Next i