중소기업의 모든 업무자동화!

이럴 때 필요해요

같은 규칙을가진 방대한양의 자료에서 제목부분만 선택하고싶을때 사용됩니다

이렇게 사용해요

 

먼저, 위의 영문으로 입력된 데이터 영역(25 행 이하)을 살펴 보신 다음, 아래의 버튼을 눌렀을때

제목이 입력된 행(25, 29, 33, 37 …행 등)들만 선택(Select)이 되었습니다.

Excel 이나 VBA에서는 주어 진 조건에서 가능한 일정한 규칙(Regulation)을 찾는 것이 핵심입니다. 즉, 아래 데이터에서의 규칙은

데이터가 입력된 최초의 25 행 부터 마지막 행(1023 행)까지 제목이 입력된 행들간에 각각 4행씩의 일정한 간격이 있다는 사실입니다.

이와 같은 경우, Union메서드를 사용하면 손쉽게 해결할 수 있습니다.

버튼에 연결된 프로시저의 내용은

Sub UnionMethod_1()

    Dim i As Integer, intCount As Integer

    Dim rngRow As Range

    intCount = ActiveSheet.UsedRange.Rows.Count

    Set rngRow = Rows(25)

    For i = 25 To intCount Step 4

        Set rngRow = Union(rngRow, Rows(i))

      Next i

     rngRow.Select

End Sub

잘 살펴 보시면 짐작하시겠지만, Union메서드는 얼마 전에 소개해 드렸던 Intersect 메서드와는

달리 수학의 집합에서 의미하는 합집합의 성격을 갖습니다.(참고로, 사전에서 Union이라는 단어를 찾아 보시기 바랍니다)

따라서, 프로시저의 핵심부분인 아래의 코드 한 줄만 이해하시면 나머지는 굳이 설명드릴 필요조차 없을 듯 합니다.^^

Set rngRow = Union(rngRow, Rows(i))

혼자서 잘 연구해 보시기 바랍니다. (이럴 때, [도움말]기능이 매우 유용하게 사용된답니다.^^)