¿Cómo puedo limpiar datos de una columna?
Elsa, ¿cómo puedo hacer una limpieza de datos con una macro?... Ejemplo
Tengo en la columna1 los valores : 1,2,3,2,4,5,6,3,3,4,6,8,9
Necesito que en la columna dos me coloque los valores de la columna 1, pero sin repetirlos, es decir, el 1,2,3,4,5,6,8,9
¿Cómo podría hacer eso?
Agradezco tu respuesta, nuevamente
Tengo en la columna1 los valores : 1,2,3,2,4,5,6,3,3,4,6,8,9
Necesito que en la columna dos me coloque los valores de la columna 1, pero sin repetirlos, es decir, el 1,2,3,4,5,6,8,9
¿Cómo podría hacer eso?
Agradezco tu respuesta, nuevamente
1 respuesta
Respuesta de Elsa Matilde
1
Primero será conveniente que ordenes la 1er col y luego una macro que recorriendo la col no pase valores = al ya copiado:
Sub limpiaCol()
'macro desarrollada el 19/12/06 por Elsamatilde
'ordena la selección de < a >
Range("A2:A9").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Dim fila, nro As Integer
'comienza a copiar en B2
fila = 2
Range("A2").Select
ActiveCell.Copy Destination:=Cells(fila, 2)
fila = fila + 1
nro = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
While ActiveCell.Value <> ""
If ActiveCell.Value <> nro Then
ActiveCell.Copy Destination:=Cells(fila, 2)
fila = fila + 1
nro = ActiveCell.Value
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Otra opción para no ordenar, sería utilizar la función Contar.si, filtrar por los que tengan resultado = 1 y luego copiar el resultado del filtro en otro destino (Esta rutina la encontrarás en el manual)
Sub limpiaCol()
'macro desarrollada el 19/12/06 por Elsamatilde
'ordena la selección de < a >
Range("A2:A9").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Dim fila, nro As Integer
'comienza a copiar en B2
fila = 2
Range("A2").Select
ActiveCell.Copy Destination:=Cells(fila, 2)
fila = fila + 1
nro = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
While ActiveCell.Value <> ""
If ActiveCell.Value <> nro Then
ActiveCell.Copy Destination:=Cells(fila, 2)
fila = fila + 1
nro = ActiveCell.Value
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Otra opción para no ordenar, sería utilizar la función Contar.si, filtrar por los que tengan resultado = 1 y luego copiar el resultado del filtro en otro destino (Esta rutina la encontrarás en el manual)
Ya han pasado las fiestas, los brindis, saludos, regalos... ahora es tiempo de poner al día los temas pendientes:
