[엑셀 VBA] Do while ~ Loop 구문 응용 : 한 셀의 내용을 다음 4개 열에 복사

한 셀의 내용을 그 다음 4칸에 복사하는 작업을  반복한다.

빈셀이 나타나면 중지한다.

Sub Macro3()

Do While ActiveCell.FormulaR1C1 <> ""   '빈셀이 아닌동안 아래 열을 실행하고 빈셀이면 빠져나간다

    Selection.Copy                                                          '현재셀을 복사
    ActiveCell.Offset(1, 0).Range("A1").Select                     '한칸 아래로 이동
    Range(Selection, Selection.End(xlDown)).Select           '다음 내용이 있는 곳까지 선택
    ActiveCell.Range("A1:A4").Select                                 '4개의 칸을 선택
    ActiveSheet.Paste                                                      '선택한 4개 칸에 복사해넣기
    ActiveCell.Offset(4, 0).Range("A1").Select                    '다음 네 칸 이동

Loop
  
End Sub