엑셀 vba 셀선택 Resize, 제목행 제외하고 선택

Sub 리사이즈() Dim rng As Range Set rng = Range("a1") '방법1) 범위조정     rng.Resize(2, 3).Select '방법2) 일부분 가져오기 Dim rngA As Range Set rngA = Range("a1").CurrentRegion          rngA.Resize(, 3).Select         '빈칸은 행번호는 그대로 유지를 의미함     rng.Select     '수식 확인용 선택으로 의미 없음.     rngA.Resize(rngA.Rows.Count, 3).Select         '위와 같은 결과가 나타남. '방법3)     '제목행 제외하고 범위 선택 Dim cn As Long cn = Cells(1, Columns.Count).End(xlToLeft).Column rngA.Offset(1).Resize(rngA.Rows.Count - 1, cn).Select End Sub