'목록하단 광고 치환자(withSeok)
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

+ Recent posts