フォーマット条件はマクロで適用されます

Question

マクロを使用して重複条件を適用する方法を知りたいと思います。 これは、指定された範囲（C11：C510）に重複値が入力されている場合、フォントの色が赤に変わり、条件付き書式（「適用可能」を除く）で取り消し線が適用され、 &よろしく

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