consulta sobre lista en excel

[mrocf]

Una opción podría ser:

Código PHP:

  Sub DistingueEmailRepetidos() 
Rem Seleccionar alguna celda del conjunto de direcciones de correo 
Rem a controlar. 
Rem Luego de ello: ejecutar la presente macro. 
Dim Tmp As String, MyForm As String 
With Intersect(ActiveCell.CurrentRegion, ActiveCell.EntireColumn) 
  .FormatConditions.Delete: Tmp = .Cells(1) 
  .Cells(1).Formula = "= COUNTIF(" & .Address & ", " & _ 
    ActiveCell.Address(False, False) & ") > 1" 
  MyForm = .Cells(1).FormulaLocal: .Cells(1) = Tmp 
  .FormatConditions.Add Type:=xlExpression, Formula1:=MyForm 
  .FormatConditions(1).Font.Bold = True 
  .FormatConditions(1).Interior.ColorIndex = 22 
End With 
End Sub  
   

Saludos, Cacho.