Comprobar si en un rango de celdas hay coincidencia

[flordegardenia70]

Iniciado por mrocf

Hola! El_LoBooo (y KATHYU).

a) Haz click derecho en la solapa de la hoja que contiene la información y selecciona: Ver código

b) En la ventana que se te abrirá copia y pega lo siguiente:

Código PHP:

  Sub Diferenciar()
Rem ------------------
Rem By Cacho Rodríguez
Rem ------------------
 
Dim Vec1, myDic
Dim Q&, i&, j&, iniTime!
 
iniTime = Timer
Vec1 = Range([a1], Cells(Rows.Count, "a").End(xlUp))
Q = UBound(Vec1)
Set myDic = CreateObject("Scripting.Dictionary")
 
i = 1
While i <= Q
  If myDic.Exists(Vec1(i, 1)) Then
    j = 1 + myDic(Vec1(i, 1))
    myDic.Remove (Vec1(i, 1))
    myDic.Add Vec1(i, 1), j
    Vec1(i, 1) = Vec1(i, 1) & j
  Else
      myDic.Add Vec1(i, 1), 1
  End If
  i = 1 + i
Wend
 
[f1].Resize(Q) = Vec1
MsgBox "Proceso terminado en: " & Format(Timer - iniTime, "0.000 seg.")
Vec1 = Empty
myDic = Empty
End Sub 
   

c) Cierra todas las ventanas del ambiente Visual Basic for Application (VBA) en el que te encuentras y retorna al Excel.

d) Ejecuta la macro que recién acabas de incorporar: Diferenciar

e) En la suposición que tus datos se encuentrasen ubicados desde la celda A1 y hacia abajo, deberías obtener la solución en cuestión de décimas de segundos.

¿Te puede servir la idea?...
Saludos, Cacho R.

hola mrocf!! tengo un poblema con una macro y no se como poder hacer la pregunta... y que me pudieras ayudar... sigo tus respuestas en otras preguntas que te hace y son geniales... espero tu respuesta. Gracias