어떤 프로그램이나 어떤 사람으로부터 원시 데이터를받은 횟수를 말할 수 없으며, 가장 먼저해야 할 일은 목록에서 중복을 제거하는 것입니다. 같은 상황에 처해 있다면 다음 매크로가 큰 도움이 될 것입니다.

Sub DelDups()

Dim rngSrc As Range     Dim NumRows As Integer     Dim ThisRow As Integer     Dim ThatRow As Integer     Dim ThisCol As Integer     Dim J As Integer, K As Integer

Application.ScreenUpdating = False     Set rngSrc = ActiveSheet.Range(ActiveWindow.Selection.Address)



NumRows = rngSrc.Rows.Count     ThisRow = rngSrc.Row     ThatRow = ThisRow + NumRows - 1     ThisCol = rngSrc.Column

'Start wiping out duplicates     For J = ThisRow To (ThatRow - 1)

If Cells(J, ThisCol) > "" Then             For K = (J + 1) To ThatRow                 If Cells(J, ThisCol) = Cells(K, ThisCol) Then                     Cells(K, ThisCol) = ""

End If             Next K         End If     Next J

'Remove cells that are empty     For J = ThatRow To ThisRow Step -1         If Cells(J, ThisCol) = "" Then             Cells(J, ThisCol).Delete xlShiftUp         End If     Next J     Application.ScreenUpdating = True End Sub

매크로는 호출하기 전에 선택한 항목에서 작동합니다. 따라서 C15 : C59 범위에서 중복 셀을 제거해야하는 경우 해당 범위를 선택한 다음 매크로를 실행하면됩니다. 범위에서 두 개 이상의 열을 선택하면 (예 : C15 : E59) 범위의 첫 번째 열만 영향을받습니다. 매크로가 완료되면 빈 셀과 마찬가지로 중복 셀이 제거됩니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (2109)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다.