큰 데이터 테이블로 작업 할 때 테이블에 기본적으로 중복 된 정보가 포함되는 것은 드문 일이 아닙니다. 테이블의 정보를 처리하려면 중복 된 것으로 간주되는 행을 제거하여 처리해야하는 정보의 양을 줄일 수 있습니다.

예를 들어 각 행의 첫 번째 셀에 부품 번호가 포함되어 있다고 가정 해 보겠습니다. 첫 번째 셀에 중복 된 부품 번호가있는 행을 삭제하려면 어떻게해야합니까? 이 솔루션이 필요한 경우 다음 매크로가 적합합니다.

Sub DelDupRows()

Dim rngSrc As Range     Dim NumRows As Integer     Dim ThisRow As Integer     Dim ThatRow As Integer     Dim ThisCol As Integer     Dim RightCol 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     RightCol = ThisCol + rngSrc.Columns.Count - 1

'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 rows with empty key cells     For J = ThatRow To ThisRow Step -1         If Cells(J, ThisCol) = "" Then             Range(Cells(J, ThisCol), _               Cells(J, RightCol)).Delete xlShiftUp         End If     Next J     Application.ScreenUpdating = True End Sub

매크로는 호출하기 전에 선택한 항목에서 작동합니다. 따라서 D7 : G85 범위에서 중복 행을 제거해야하는 경우 해당 범위를 선택한 다음 매크로를 실행하면됩니다. D7 : D85 범위에서 중복 항목을 제거한 다음 D7 : G85 (행당 4 개 열)에서 D 열의 셀이 비어있는 모든 행을 제거합니다.

_ 참고 : _

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

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

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

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