Hola,mira hace mucho preguntaron lo mismo y respondi con esta funcion:


Public Sub Duplicados(Combo1 As ComboBox)
Dim Search1 As Long
Dim Search2 As Long
Dim KillDupe As Long
KillDupe = 0...