Eliminar repetidas en la "lista A" en Macros Excel
Tengo una Lista A y Lista B comparando si ambas listas tienen datos repetidos, y que el resultado "Lista C" me de la Lista A - las repetidas:
Lista A Lista B ===> Lista C
mama hijo mama
hijo abuelo papa
papa tio
De esta manera eliminar las repetidas de la lista A celda "A2", comparando con la lista B celda "B2", dando resultado en la lista C celda "C2".
H o l a:
Preparé la macro según el ejemplo que pusiste.
Sub EliminaRepetidas()
'Por.Dante Amor
Columns("C").ClearContents
j = 1
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
Set b = Columns("B").Find(Cells(i, "A"), lookat:=xlWhole)
If b Is Nothing Then
Cells(j, "C") = Cells(i, "A")
j = j + 1
End If
Next
MsgBox "fin"
End SubPrueba y me comentas.
':) S a l u d o s . D a n t e A m o r ':) Si es lo que necesitas. Recuerda valorar la respuesta. G r a c i a s.
¡Gracias! El resultado me da, pero por que no me muestra "mama" si no esta repetida, te lo agradeceré ... solo pasa en el primera celda de la lista A
lista A lista B Lista C
mama hijo papa
hijo abuelo
papa tio
Así es como me muestra ...
H o l a:
Te anexo la macro para que empiece a leer desde la fila 2.
Sub EliminaRepetidas()
'Por.Dante Amor
Columns("C").ClearContents
j = 2
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
Set b = Columns("B").Find(Cells(i, "A"), lookat:=xlWhole)
If b Is Nothing Then
Cells(j, "C") = Cells(i, "A")
j = j + 1
End If
Next
MsgBox "fin"
End SubPero tengo la siguiente duda.
Según tu ejemplo de la pantalla. Tía que se encuentra en la cela A2, no existe en la columna B, por lo tanto, se tiene que pasar a la columna C.
Pero que pasa con la palabra mamá que se encuentra en la celda B6, pero no se encuentra en la columna A, ¿quieres qué se pase mamá a la columna C?
Si es correcto lo anterior, entonces ejecuta la siguiente macro:
Sub EliminaRepetidas2()
'Por.Dante Amor
Columns("C").ClearContents
j = 2
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
Set b = Columns("B").Find(Cells(i, "A"), lookat:=xlWhole)
If b Is Nothing Then
Cells(j, "C") = Cells(i, "A")
j = j + 1
End If
Next
'
For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
Set b = Columns("A").Find(Cells(i, "B"), lookat:=xlWhole)
If b Is Nothing Then
Cells(j, "C") = Cells(i, "B")
j = j + 1
End If
Next
MsgBox "fin"
End SubR ecuerda cambiar la valoración de la respuesta.
Sal u dos
¡Gracias! Pero solo quiero el resultado de la lista A restando las repetidas, no de la lista B, al comparar la lista A con la B; mi resultado seria la Lista A menos las repetidas, bueno espero que me entiendas u.u
