☰

A1:A100000 열이 중복될 때 전체 행을 삭제하는 방법

tag-icon • tag-icon microsoft-excel duplicate
A1:A100000 열이 중복될 때 전체 행을 삭제하는 방법

상당히 큰 데이터(행 102,858개, 열 9개)를 필터링해야 합니다.

아이디어는 이러한 행(URL 주소) 사이에 많은 중복이 있다는 것입니다. A1:A102000에는 주석이 있거나 없는 URL 주소가 포함되어 있습니다. 예를 들어, 1개의 행에는 URL 주소(A1), 댓글(B1), 날짜(C1) 등이 있습니다. A2, C2는 A1(URL)과 동일하지만 B2, C2, B3, C3에서는 공백입니다. 댓글이 포함된(또는 중복이 없으면 댓글이 포함되지 않은) 고유 URL 목록을 가져와야 합니다.

나중에 A1:A100000 셀이 복제될 때 전체 행을 제거하는 VBA 코드를 발견했습니다. 그러나 적은 수의 행에서만 작동합니다. "런타임 오류 1004"가 발생합니다.

Sub RemoveDupe()
Dim rCell As Range
Dim rRange As Range
Dim lCount As Long

Set rRange = Range("A1", Range("A" & Rows.Count).End(xlUp))
lCount = rRange.Rows.Count

For lCount = lCount To 1 Step -1
    With rRange.Cells(lCount, 1)
        If WorksheetFunction.CountIf(rRange, .Value) > 1 Then
            .EntireRow.Delete
        End If
    End With
Next lCount
End Sub

어떤 제안이라도 있나요?

답변1

데이터 리본에서 중복 제거 기능을 사용해 보겠습니다. 고려할 열을 선택할 수 있습니다. 시나리오에서는 A열만 해당됩니다.

관련 정보