[已解决]按已有的开始月份填充序列到固定月份

雷神托尔100

如下截图所示，根据C列开始月份自动填充月份到12月停止后有根据C列下一个值自动填充月份到12月，一直循环到C列最后一个值

最佳答案

月排行榜 / 总排行榜

我行我速2008

2022-8-28 12:28

试试看，行不行。

Sub clear()
    [i3:i1000].clear
End Sub

Sub tt()
    clear
    Dim ar, r, k
    ar = [c1].CurrentRegion
    For r = 2 To UBound(ar)
        If ar(r, 1) <= 12 and ar(r,1) > 0 Then
            For k = ar(r, 1) To 12
                Cells(Rows.Count, 9).End(xlUp).Offset(1, 0) = k
            Next k
        End If
    Next r
End Sub

跳转到最佳答案楼层

我行我速2008

有问题，上附件！

雷神托尔100

我行我速2008 发表于 2022-8-28 12:03
有问题，上附件！

C列是底稿，想根据c列的月份得到I列的月份填充到12月截止

我行我速2008

试试看，行不行。

Sub clear()
    [i3:i1000].clear
End Sub

Sub tt()
    clear
    Dim ar, r, k
    ar = [c1].CurrentRegion
    For r = 2 To UBound(ar)
        If ar(r, 1) <= 12 and ar(r,1) > 0 Then
            For k = ar(r, 1) To 12
                Cells(Rows.Count, 9).End(xlUp).Offset(1, 0) = k
            Next k
        End If
    Next r
End Sub