728x90

홀수행 또는 짝수행만 추출하는 VBA


홀수행 또는 짝수행만 추출해서 데이터를 추출하고 싶을 때가 있습니다.

이럴 때는 추출하고자 하는 열이 A열이라고 할 때, B열에 번호 순번을 주고 B열을 기준으로 홀짝을 판별하여 A열의 값을 C열에 추출하는 것입니다.

Cells(Rows.Count, "C").End(3)(2) 의 의미는 데이터가 있는 값의 아래에다가 계속 쌓아라 라는 의미입니다.

그러므로 C열에 마지막 셀을 인식할 수 있도록 값을 하나 넣어주면 그 다음셀부터 값을 저장할 것입니다.


Sub 홀수행추출()
    Dim rngC As Range
    Dim rngAll As Range
   
    Application.ScreenUpdating = False      '// 화면 업데이트 (일시)정지
    Set rngAll = Range([b2], Cells(Rows.Count, "b").End(3))
   
    For Each rngC In rngAll
        If rngC Mod 2 = 1 Then
            rngC.Offset(, -1).Copy Cells(Rows.Count, "C").End(3)(2)
        End If
    Next rngC
    Set rngAll = Nothing  '// 변수 초기화
    MsgBox "작업완료"
End Sub

블로그 이미지

Link2Me

,