2012-11-21 7 views
0

Excel 열에서 중복을 제거하고 삭제하려고합니다. 중복 행을 제거하는 방법을 알고 있지만 열을 사용하여 행할 수있는 방법이 있는지 모릅니다.중복 제거 Excel 열

내 엑셀 시트 :이 기능을 워크 시트로 제한하는 경우에도이 문제를 해결할 수있다 변경할 수 없기

Name AA BB CC DD AA CC 
ID 11 22 33 44 11 33 


Name AA BB CC DD 
ID 11 22 33 44 
+0

데이터를 조 변경하고 중복 행을 제거한 다음 다시 조 변경을 수행 할 수 있습니다. 그렇지 않으면 VBA를 사용하게됩니다. – Jook

+0

@ Jook은 1000rows와 1000columns가있는 테이블을 가지고 있으면 데이터를 매우 느리게 변환 할 수 있기 때문에 다른 방법도 있습니다. VBA로 어떻게 할 수 있는지 보여 줄 수 있습니까? –

답변

1

나는, 내 댓글에 조금 잘못이었다. 이것은 더 많은 데이터의 작은 세트에 대한 해결책이지만

Public Sub demo() 
    On Error Resume Next 
    Application.ScreenUpdating = False 
    With Range(Cells(1, 1), Cells(1000, 1000)) 
    .Cells = WorksheetFunction.Transpose(.Cells) 
    .Cells.RemoveDuplicates Columns:=Array(1), Header:=xlYes 
    .Cells = WorksheetFunction.Transpose(.Cells) 
    End With 
    Application.ScreenUpdating = True 
End Sub 

당신은 그것을 시도해야합니다 :

그러나, 여기 transpose을 사용하는 빠른 & 더러운 버전입니다. 시간이 좀 걸리지 만 효과가 있습니다.

+0

감사합니다. 작동하지만 아주 느린 말처럼 –