Question

我有6列：A，B，C，D，E，F。例如，在A列中，我想要以下顺序：

A1:task1
A2:task1
A3:task1
A4:task1
A5:task2
A6:task2
A7:task2
A8:task2
A9:task2
A10:task3
A11:task3
A12:task3
A13:task3
A14:task3

其中A代表A列，1,3,4代表14代表行号

从上面的序列可以看出，任务1重复4次，然后是任务2，重复5次，然后是任务3，也重复5次。我想继续打印这个序列直到第200行。

我对编程比较陌生，如果有人可以帮助我，我会很感激。

谢谢。

Answer 1

好的，试试这个

更新代码

Sub test()
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    t = 4
    For i = 1 To 16
    For k = 1 To t

    If i = 16 Then GoTo here:
    Range("A" & i).Value = "task" & t - 3
    If k <> t Then i = i + 1
    Next
    t = t + 1
    Next i

    here:

    Range("A1:A15").AutoFill Destination:=Range("A1:A200"), Type:=xlFillDefault

    End Sub

VBA宏根据模式填充列

1 个答案: