Concatenar

Partamos de tres supuestos:

1. Supongamos que tus datos están organizados de la siguiente manera:
A B
1 Numero de parte Referencia
2 4034208961 C684
3 4034208961 C686
4 4034208961 C687
5 4068566251 Q509
6 4068566251 Q200
7 4068566251 Q651
8 4068566251 Q650

2. Supongamos que los datos de la columna B son tipo texto.

3. Supongamos que estos datos se encuentran en la Hoja1, y quieres el
resumen en la Hoja2 (la cual ya existe en tu libro).

Podrías probar iniciar con un código como el siguiente, y tratar de
adaptarlo a tu situación:

DefLng F
DefStr T

Sub Reportar()
F1 = 2
F2 = 2
'Se copia el primer registro
Tnp = Sheets("Hoja1").Cells(F1, 1).Value
Trf = Sheets("Hoja1").Cells(F1, 2).Value
Do
'Se pasa al registro siguiente
F1 = F1 + 1
If Sheets("Hoja1").Cells(F1, 1).Value = Tnp Then
'Si Número de parte no cambia, se concatena la Referencia de la
fila
Trf = Trf & ", " & Sheets("Hoja1").Cells(F1, 2).Value
Else
'Si Número de parte ha cambiado...
'Se guarda la referencia y la parte en la Hoja2
Sheets("Hoja2").Cells(F2, 1).Value = Tnp
Sheets("Hoja2").Cells(F2, 2).Value = Trf
'Se pasa a la siguiente fila de la Hoja2
F2 = F2 + 1
'Se copia el registro de la Hoja1
Tnp = Sheets("Hoja1").Cells(F1, 1).Value
Trf = Sheets("Hoja1").Cells(F1, 2).Value
End If
Loop Until Len(Sheets("Hoja1").Cells(F1, 1).Value) = 0
'Se guarda la última referencia y parte
Sheets("Hoja2").Cells(F2, 1).Value = Tnp
Sheets("Hoja2").Cells(F2, 2).Value = Trf
End Sub


No olvides comentar los resultados.

Saludos.



"Manny_90" escribió:

Que tal.
Necesito un macro donde pueda concatenar un rango de valores y eliminar
valores unicos de otra columna.

Realmente necesito ayuda.
Muchas gracias

Numero de parte Referencia
406856625 1 Q509
406856625 1 Q200
403420896 1 C684
406856625 1 Q651
406856625 1 Q650
403420896 1 C686
403420896 1 C687

El resultado que necesito es:

Numero de parte Referencia
406856625 1 Q509,Q200, Q650,Q651
403420896 1 C684,C686,C687