2010-01-31 4 views

답변

0

Excel 버전 2007을 사용할 때 작성된 기능을 사용하여 중복을 제거 할 수 있습니다.

명령은 데이터 탭, 그룹 데이터 도구에 있습니다.
아이콘 중복을 제거하십시오.


매크로를 사용하십시오. 인접한 열에 X와 같이 중복 된 값을 태그로 표시하려면 그런 다음 자동 필터를 사용하여 표시된 행과 키보드 단축키를 필터링 할 수 있습니다. CTRL + - (빼기 키) 중복을 한 번에 제거 할 수 있습니다.

Option Explicit 
'crea by pc-prog.eu 

Sub SelectRowOfDupli_A() 
Dim x As Variant, xRng As Range, xR As Range 
Dim xMltRow As String, i As Integer, xObl As String 
Set xRng = Selection 
x = "xxxxxx" 

On Error GoTo xErr 
xObl = "B" 
xObl = InputBox("Enter COLUMN where by 'X' sign will be marked duplicate entries " & _ 
"of selected cells:", "RANGE", xObl) 

If xObl = "" Then 
MsgBox "Column name must be entered!", vbCritical, "CHYBA" 
Else 
For Each xR In xRng 
If Trim(CStr(xR.Value)) = x Then 
Range(xObl & CStr(xR.Row)).Value = "X" 
i = i + 1 
Else 
x = Trim(CStr(xR.Value)) 'xR.Value 
End If 
Next xR 
If xMltRow <> "" Then 
Range(xMltRow).Select 
End If 
MsgBox "Done. " & CStr(i) & " duplicates." 
End If 
Exit Sub 
xErr: 
MsgBox Err.Description, vbCritical, "FINISHED WITH ERRORS:" 
End Sub 
0

수식이 들어있는 다른 열 (Q을 확인한다고 가정)을 사용하여 중복 된 열을 찾을 수 있습니다. COUNTIF(Q:Q, Q2).

그런 다음 조건부 서식을 사용하여 새 열의 값이 > 1 인 행을 강조 표시 할 수 있습니다.