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

이럴 때 필요해요

다른시트에 있는 여러 데이터를 한시트에 합치고싶을때 사용됩니다.

이렇게 사용해요

Sheet1 에는

이펀 데이터 자료가있고.

Sheet2 에는

이런 중복되는 데이터도 포함된 데이터표가 있을떄.

한시트에 중복되는 데이터를 빼고 깔끔하게 정리하고 싶을때는

Sub Sheet_Unification()

 Application.ScreenUpdating = False

    Range("A2:D" & Rows.Count).ClearContents

   For i = 1 To 2

     With Sheets(i).Range("A1").CurrentRegion

       Rev = .Offset(1).Resize(.Rows.Count - 1)

     End With

   Cells(Rows.Count, 1).End(3)(2).Resize(UBound(Rev), 4) = Rev

  Next i

 Range("A1").CurrentRegion.RemoveDuplicates Array(1, 2, 3, 4), xlYes

End Sub

모듈에 이 코드를 입력후 실행시키면 

짠! 중복된 데이터는 빼고 깔끔하게 한시트에 합칠수있습니다.