728x90
Sub offset사용() '방법1) Range("a1").Offset(2, 1).Select 'B2 선택하게 됨 '방법2) Range("a1").Offset(0, 3).Select 'D1 선택하게 됨 '방법3) Range("a1").Offset(, 3).Select '0은 생략할 수 있음. 'D1 선택하게 됨 '방법4) Range("c5").Offset(-1, -2).Select 'A4 선택하게 됨 '방법5) Cells(Rows.Count, "c").End(xlUp).Offset(1, 0).Select 'c열의 입력된 마지막행의 바로 아래칸으로 이동 '데이터를 누적하여 입력할 때 용이함. '방법6) Dim rng As Range For Each rng In Range("c1:c15") If rng >= 5 Then Cells(Rows.Count, "f").End(xlUp).Offset(1, 0) = rng End If Next '방법7) Dim rng As Range For Each rng In Range("c1:c15") If rng >= 5 Then Cells(Rows.Count, "f").End(3)(2) = rng 'cells내장 상수 이용함 '위와 같은 결과!!! End If Next End Sub |
728x90
'■ Excel > ㅡExcel VBA Study' 카테고리의 다른 글
엑셀 vba 셀선택 Resize, 제목행 제외하고 선택 (0) | 2020.04.19 |
---|---|
엑셀 vba 입력범위모두선택, CurrentRegion (0) | 2020.04.19 |
엑셀 vba 한 번에 여러줄 주석처리 (0) | 2020.04.19 |
엑셀 vba 전체행열선택 (0) | 2020.04.19 |
엑셀 vba 셀선택 end(xlup), end(xltoRight) (0) | 2020.04.18 |