For 루프 함수

Question

난 그냥 열을 통해 반복에 도움이 필요합니다. 각 셀은 다른 열로 전송되어야하지만 빈 셀 3 개 간격으로 3x 반복 한 다음 소스 열의 다음 셀로 반복해야합니다.

출력은 다음과 같아야합니다

내가 For 루프가이 작업을 수행하는 데 사용할 수 있다고 생각하지만 난 코딩 힘든 시간을 보내고 있습니다. 어느 누구라도 도움이 될 수 있습니까?

Dim row As Long 

For row = 1 To 3 

    Cells(row + 1, 3).Value = [A2] 

Next row 

3 개의 빈 셀 간격을 추가하고 원본 열의 다음 셀로 이동하는 데 어려움을 겪고 있습니다.

이, 나는 이것이 당신이 그래서 당신은 자신을 codeing 이런 종류의 더 많은 일을 시도 할 수 있습니다 시작하는 것입니다 단지 기본 루프 희망

Answer 1

..

Dim lastrow As Long 
Dim i As Long 

lastrow = Cells(Rows.Count, 1).End(xlUp).row 
For i = 1 To lastrow 
    Cells(i + j, 3).Resize(3).Value = Cells(i, 1).Value 
    j = j + 5 
Next 

Answer 2

당신은

VBA없이이를 수 만약에

=IF(MOD(ROW()-1,6)<3,INDEX(A:A,INT((ROW()-1)/6)+1),"") 

Answer 3

조금 다른 코드, 나는이 도움을 바랍니다.

Dim LastRow, i As Long 

LastRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row 

For i = 2 To LastRow 
    Cells(6 * (i - 2) + 2, 3).Resize(3).Value = Cells(i, 1).Value 
Next