Buscar Dato Repetido
Hola:
Tengo una preguntita; tengo en una hoja dos columnas la columna A contiene un listado de nombre y la columna B contiene una serie de actividades, lo que quiero es hacer una macro que me busque los datos repetidos en la columna A elimine la fila y el dato que esta en la columna B (la actividad) lo coloque en la columna B al frente del nombre que encontró repetido.
Ejemplo: (tengo estas dos columnas)
Columna A Columna B
Luis Baila
Carlos Corre
Pedro Vuela
Luis Brinca
Camilo Camina
Juan Juega
Pedro Come
Luis Habla
Al momento de ejecutar la macro quiero que me quede de la siguiente forma:
Columna A Columna B
Luis Baila, Brinca, Habla
Carlos Corre
Pedro Vuela, Come
Camilo Camina
Juan Juega
Tengo una preguntita; tengo en una hoja dos columnas la columna A contiene un listado de nombre y la columna B contiene una serie de actividades, lo que quiero es hacer una macro que me busque los datos repetidos en la columna A elimine la fila y el dato que esta en la columna B (la actividad) lo coloque en la columna B al frente del nombre que encontró repetido.
Ejemplo: (tengo estas dos columnas)
Columna A Columna B
Luis Baila
Carlos Corre
Pedro Vuela
Luis Brinca
Camilo Camina
Juan Juega
Pedro Come
Luis Habla
Al momento de ejecutar la macro quiero que me quede de la siguiente forma:
Columna A Columna B
Luis Baila, Brinca, Habla
Carlos Corre
Pedro Vuela, Come
Camilo Camina
Juan Juega
1 Respuesta
Respuesta de boumerang
1
Oh!... interesante rutina.
-
Sub REPETIDOS()
Dim NOMBRE As Range
Dim CELDA1, CELDA2, NumReg As Long
NumReg = Range("A1").CurrentRegion.Rows.Count
For CELDA1 = 1 To NumReg - 1
If Not Range("B" & CELDA1).Value = "" Then
For CELDA2 = CELDA1 + 1 To NumReg
If Range("A" & CELDA1).Value = Range("A" & CELDA2).Value Then
Range("B" & CELDA1).Value = _
Range("B" & CELDA1).Value & ", " & Range("B" & CELDA2).Value
Range("B" & CELDA2).Value = ""
End If
Next CELDA2
End If
Next CELDA1
For CELDA1 = NumReg To 1 Step -1
If Range("B" & CELDA1).Value = "" Then Range(CELDA1 & ":" & CELDA1).Delete
Next CELDA1
End Sub
-
-
Sub REPETIDOS()
Dim NOMBRE As Range
Dim CELDA1, CELDA2, NumReg As Long
NumReg = Range("A1").CurrentRegion.Rows.Count
For CELDA1 = 1 To NumReg - 1
If Not Range("B" & CELDA1).Value = "" Then
For CELDA2 = CELDA1 + 1 To NumReg
If Range("A" & CELDA1).Value = Range("A" & CELDA2).Value Then
Range("B" & CELDA1).Value = _
Range("B" & CELDA1).Value & ", " & Range("B" & CELDA2).Value
Range("B" & CELDA2).Value = ""
End If
Next CELDA2
End If
Next CELDA1
For CELDA1 = NumReg To 1 Step -1
If Range("B" & CELDA1).Value = "" Then Range(CELDA1 & ":" & CELDA1).Delete
Next CELDA1
End Sub
-
