2014-03-05 2 views
0

I 6 열을 가지고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는, B, C, D, E는, F., 예를 들면 열 A, I는 다음의 서열을하고자 여기서 A는 A 열을 나타내고 1, 3, 4 ... 14는 행 번호를 나타냄

위의 순서에서 알 수 있듯이 작업 1은 4 번 반복되고 작업 2는 5 번 반복됩니다 , 3 번 작업도 5 번 반복됩니다. 나는이 열을 200 행까지 계속 인쇄하고 싶습니다.

나는 프로그래밍에 비교적 익숙하며 누군가가 나를 도울 수 있다면 고맙겠습니다.

감사합니다.

답변

0

확인이

업데이트 된 코드

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 
+0

안녕 사티를 시도 답장을 보내 주셔서 감사합니다. 나는 그것을 테스트했지만 그 결과는 내가 원하는 것과 다릅니다. 코드를 사용할 때 결과는 A1 : task1, A2 : task2, A3 : task3, A4 : task1, A5 : task2, A6 : task3, A7 : task4, A8 : task1이었습니다. – user3016001

+0

죄송합니다. 지금 업데이트 된 코드를 사용해보십시오. 그것은 작동한다 : –

+0

나는 당신이 분리 된 질문을 제기해야한다고 생각한다. 우리가 당신을 도울 수 있도록 도움이된다면 대답을 수락하십시오. –