Quitar duplicados en columna
Hola, me gustaría saber como quitar los valores duplicdos en una columna y dejar solamente aquellos valores que no se dupilcaban, ejemplo:
7
7
8
8
1
2
Quiero que solo me quede:
1
2
Gracias.
7
7
8
8
1
2
Quiero que solo me quede:
1
2
Gracias.
1 Respuesta
Respuesta de Enrique Bernal
1
Amigo, gracias por la respuesta, pero lo que quiero es que me queden solos los elementos que no estuvieron duplicados en alguna de las dos tablas, y aquellos que si estaban duplicados se eliminen.
Mira bien mi pregunta,
Gracias por la respuesta anterior!
Mira bien mi pregunta,
Gracias por la respuesta anterior!
Disculpa no me fije, en todo caso estos códigos hacen lo que nenecesitas
Sub Nodupli()
Range("B1").Select
ActiveCell.FormulaR1C1 = "=+COUNTIF(C[-1],RC[-1])"
k = Range("A" & Cells.Rows.Count).End(xlUp).Row
Selection.Copy
Range("B1:B" & k).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("B:B").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Dim Comprobar, Contador
Comprobar = True: a = 0 ' Inicializa variables.
Do ' Bucle externo.
Do While a < 65000 ' Bucle interno.
a = a + 1 ' Incrementa el contador.
If Range("A" & a).Value <> "" Then ' Si la condición es verdadera.
If Range("B" & a).Value > 1 Then
Rows(a).Select
Selection.Delete Shift:=xlUp
a = a - 1
Else
Range("B" & a).ClearContents
End If
Else
Comprobar = False ' Establece el valor a False.
End Sub
Sub Nodupli()
Range("B1").Select
ActiveCell.FormulaR1C1 = "=+COUNTIF(C[-1],RC[-1])"
k = Range("A" & Cells.Rows.Count).End(xlUp).Row
Selection.Copy
Range("B1:B" & k).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("B:B").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Dim Comprobar, Contador
Comprobar = True: a = 0 ' Inicializa variables.
Do ' Bucle externo.
Do While a < 65000 ' Bucle interno.
a = a + 1 ' Incrementa el contador.
If Range("A" & a).Value <> "" Then ' Si la condición es verdadera.
If Range("B" & a).Value > 1 Then
Rows(a).Select
Selection.Delete Shift:=xlUp
a = a - 1
Else
Range("B" & a).ClearContents
End If
Else
Comprobar = False ' Establece el valor a False.
End Sub
