목록do while (1)

rand(life)

[엑셀 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 '다음 네..
컴퓨터/엑셀 2008. 10. 28. 16:48
이전 Prev 1 Next 다음