2010-01-31 23 views

回答

0

使用Excel版本2007时,可以使用构建的功能删除重复。

该命令在标签Data上,一组数据工具;
图标删除重复项。


或者使用宏。用标记标记重复的值,例如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的行。

相关问题