主题：输入

For Each r As Row In Tables("任务").Rows

    Dim fr As Row

    If r.Index Mod 28 = 0 Then

        fr = r

    Else

        For Each c As Col In Tables("任务").Cols

            Select Case c.Index + 1

         Case 生产流程, 开始日期, 结束日期, 生产周期, 已过天数, 剩余天数, 时间进度, 测定差距, 生产进度, 剩余任务, 当日累计, 生产任务, 备注1, 提醒时间, 提醒事宜

                Case Else

                    r(c.Name) = fr(c.Name)

            End Select

        Next

    End If

Next