我试过下面的宏代码,但它不是强调从第二个实例重复PLZ帮我出高亮重复值,从孔片范围(UsedRange)
还有一件事IAM努力做与动态不采取固定范围(特定范围)
Sub FindingDuolicate()
Dim Rng As Range
Dim rngCell As Variant
Dim Flag As Long
ActiveSheet.UsedRange.Select
Flag = 0
For Each Rng In Selection
If (WorksheetFunction.CountIf(Selection, Rng.Value) > 1) Then
Rng.Interior.Color = vbRed
Flag = Flag + 1
Else
Rng.Interior.Pattern = xlNone
End If
Next
If Flag > 0 Then
MsgBox Flag & " Cells (in red) Contain an Duplicate Data. Please Check"
Else
MsgBox " Data Validation Completed . No Duplicate Found. "
End If
End Sub
'昏暗的标志作为Long'(不' Dim LR');和'xlNone'不是'x1None'(L不是1)。 –
@ A.S.H对不起,这是输入错误,我纠正了这一点。但我需要帮助plz帮助我,如果你能 –
你的宏为我工作与上述更正,虽然没有测试几乎。你怎么调用它?还要添加Option Explicit,这对于帮助你发现许多错误非常有用。 –