[& Chronicle] 공급업체가 다를 경우 행삽입 하기

http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=262572939&qb=7Zqo7Jyo7KCB&enc=utf8&section=kin.qna&rank=3&search_sort=0&spq=0 에 등록된 질문글입니다. A열에 공급처명이 나열되어있고 공급처명이 다를 경우 행삽입이 필요한 내용입니다. Chronicle님의 해결방법입니다. - http://blog.naver.com/asaph16/220997504215 필터기능을 활용하여 행삽입을 하는 방식입니다. 이런 수작업은 매크로의 장점을 살릴 수 있는 작업 중 하나입니다. 데이터가 수백건을 넘어가게 되면 이미 사람 손으로는 해결하기가 버거운 면이 있지요. 하지만 매크로를 알면 수만데이터가 존재한 들 몇초만에 작업을 끝낼 수 있습니다.

그것도 몇 줄 안되는 코드로 말이지요.

Sub InsertRows()
 
    Dim i As Integer
    
    'A열의 마지막행부터 3행까지 거꾸로 순환하면서
    '공급처명이 다르면 행을 삽입합니다.
    For i = Cells(Rows.Count, 1).End(3).Row To 3 Step -1
        
        With Cells(i, 1)
            If .Value <> .Offset(-1) Then
                Rows(i).Insert
            End If
        End With
        
    Next i
    
End Sub
 

행삽입문의.xls