格式条件适用于宏

Question

我想知道如何通过宏应用重复条件。 意味着，如果在给定范围（C11：C510）中输入了Duplicate值，则Font Color变为Red，并且Strikethrough也通过条件格式应用（除了单词：＆＃34;适用＆＃34;）然后如何通过宏观工作。

谢谢＆amp;此致

Answer 1

我想这就是你想要的：

Sub CheckDuplicates()
    Dim cell As Range

    With Intersect(ActiveSheet.Range("C11:C510"), ActiveSheet.UsedRange)
        For Each cell In .Cells
            If WorksheetFunction.CountIf(.Resize(cell.Row - .Rows(1).Row + 1), cell.Value) > 1 Then
                With cell
                    .Interior.ColorIndex = 3
                    .Font.Strikethrough = True
                End With
            End If
        Next cell
    End With
End Sub