VBA 프로그램에서 여러 루프를 하나로 병합하는 방법은 무엇입니까?

Question

나는 VBA에 상당히 익숙하지 않으며이 루프를 만드는 방법을 알 수 없습니다. 나는 4 개의 분리 된 문장을 설정하고이 방법으로 작동하지만이 문장을 만들고 싶다. 응답 팀에 대한

i = 1 
Do Until i > combos 
     Range(Cells(i, 10), Cells(i + Defrepeat - 1, 10)) = Range(Cells(3, 4), Cells(3, 4)) 
i = i + TErepeat 
Loop 

w = 4 
Do Until w > combos 
     Range(Cells(w, 10), Cells(w + Defrepeat - 1, 10)) = Range(Cells(4, 4), Cells(4, 4)) 
w = w + TErepeat 
Loop 

p = 7 
Do Until p > combos 
     Range(Cells(p, 10), Cells(p + Defrepeat - 1, 10)) = Range(Cells(5, 4), Cells(5, 4)) 
p = p + TErepeat 
Loop 

k = 10 
Do Until k > combos 
     Range(Cells(k, 10), Cells(k + Defrepeat - 1, 10)) = Range(Cells(6, 4), Cells(6, 4)) 
k = k + TErepeat 
Loop 

Answer 1

Dim c As Range, i As Long, n As Long 

Set c = Cells(3, 4) 

For n = 1 To 10 Step 3 
    i = n 
    Do Until i > combos 
     Range(Cells(i, 10), Cells(i + Defrepeat - 1, 10)) = c.Value 
     i = i + TErepeat 
    Loop 
    Set c = c.Offset(1, 0) 
Next n