[VBA기초] 편리한 범위 지정(시작행, 마지막행)

수정을 하거나 중간 중간 확인을 해야 하는 상황일 때에는 시작행, 마지막행을 가변적으로 지정할 필요가 있다.

이때에는 코드를 아래처럼 만들어서 사용하면 좀 더 편하고 좋다.

VBA 도 조금 알게 되니까 범위지정을 얼마나 편리하게 할 것인가, 간단간단한 팁을 알아두면 여러모로 유용하게 사용할 수가 있는 거 같다.

    Dim C, rngAll As Range
    Dim sRow    '// 시작할 행의 변수
    Dim v
    Application.StatusBar = True
    v = InputBox("시작할 행의 수를 입력하세요")
    sRow = Trim(Split(v, "/")(0))
    If sRow = vbNullString Then Exit Sub           '// 취소 선택시 매크로 중단
    If Not IsNumeric(sRow) Then Exit Sub         '// 입력한 값이 숫자가 아닌 경우 매크로 중단
       
    If InStr(v, "/") > 0 Then
        eRow = Trim(Split(v, "/")(1))  '// 마지막 행
    End If
    Debug.Print "Last Row : " & eRow
    If eRow Then
        Set rngAll = Range(Cells(sRow, "G"), Cells(eRow, "G"))
    Else
        Set rngAll = Range(Cells(sRow, "G"), Cells(Rows.Count, "G").End(3))
    End If