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

1 Respuesta

Respuesta
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
-

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas