=СЧЁТЕСЛИ($A:$A;A1)>1

=СЧЁТЕСЛИ($A$1:$A$9999;A1)>1

Sub SetFormatCondition()
Dim f, fa, c As Range
  Set c = Range("A1")                 'первая ячейка диапазона УФ
  fa = с.Formula                      'сохраняем существующую формулу
  с.Formula = "=COUNTIF($A:$A,A1)>1"  'формула для УФ в универсальном формате
                                      'локализованная формула УФ
  If Application.ReferenceStyle = xlA1 Then f = c.FormulaLocal Else: f = c.FormulaR1C1Local
  с.Formula = fa                      'возвращаем формулу
  с.Select                            'для правильной трансляции формулы
  With Columns("A:A").FormatConditions.Add(Type:=xlExpression, Formula1:=f)
    With .Font
      .Bold = True
      .Italic = True
      .Color = -16777024
    End With
  End With
End Sub