VBA宏基於圖案來填充向下柱

我有6列：A，B，C，d，E，F在A列，例如，我想以下序列：VBA宏基於圖案來填充向下柱

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次之後是重複5次的任務3。我想繼續打印這個序列直到第200行。

我對編程相對比較陌生，如果有人能幫助我，我將不勝感激。

謝謝。

來源

2014-03-05 user3016001

好的嘗試這種

更新的代碼

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

來源

2014-03-05 06:52:57

薩蒂什你好，謝謝你的回覆。我測試了它，但結果與我想要的不同。當我使用你的代碼時，結果是A1：task1，A2：task2，A3：task3，A4：task1，A5：task2，A6：task3，A7：task4，A8：task1。 – user3016001

哦，對不起現在就試試更新的代碼。它的工作原理:) –

我認爲你應該提出一個單獨的問題。所以我們可以幫助或引導你。如果有幫助，請接受答案 –

VBA宏基於圖案來填充向下柱

回答

相關問題