Excel VBA 예제 - Range를 이용하여 가로로 Loop 돌리기

Range를 이용하여 가로로 Loop 돌리기

Range("A" & i)를 이용하면 세로로 loop를 돌릴 수 있었다. 허나 가로로 하고자 하면 A B C D 이렇게 알파벳으로 나오고, 알파벳을 유니 코드와 대응을 해서 돌리는 방법도 있지만 조금만 열이 많아져도 AA, AB, AC, AXA, AXB 이런식으로 나오기 때문에 애로사항이 있었다.

그걸 해결한 코드이다. 잘 응용해서 사용해 보시기 바란다.

Sub horizonLoop()
    For i = 1 To 20
        Range(Cells(1, i), Cells(1, i)).Value = i
    Next
End Sub

Range에 2개의 parameter(매개변수)를 주면 앞에 주소부터 뒤에 주소까지 선택이 되는 것을 응용한 것이다. 앞에 셀과 현재 셀을 같게 주면 범위 대신 한 셀만 선택이 된다. 그 셀에 행번호를 같은 i로 주면 for문을 이용해서 쉽게 가로로 Loop를 돌릴 수 있다.

세로로 루프를 돌리려면? 위의 코드에서 1과 i의 자리를 바꾸어 주면 된다.