한 셀의 내용을 그 다음 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
'엑셀VBA' 카테고리의 다른 글
일치 항목 없음 때 Cells.Find 반환 오류 (0) | 2012.12.28 |
---|---|
find함수에서 lookin:=xlformulas와 xlvaues의 차이점 (0) | 2012.12.28 |
엑셀에서의 암호설정 (0) | 2011.09.03 |
엑셀 자동 하이퍼링크 만들기(매크로) (0) | 2011.09.03 |
vlookup함수 사용 시 중복값 나타내기 (0) | 2011.07.08 |