Ordenar resultados de un dato de manera Horizontal
Q
Quisiera que los siguientes datos se ordenaran de manera horizontal
Numero Parte
1 131312
45678684
789465
2 1321549
3 4357891
135486
4567321
9875321
4 1322156
Busco ordenarla de la siguiente manera:
Numero Parte
1 131312 45678684 789465
2 1321549
3 4357891 135486 4567321 9875321
4 1322156
1 Respuesta
Prueba con esta macro, solo cambia el a1 y el a2 de las primeras 2 líneas de acuerdo a los datos que manejes en este caso A1 son los títulos
Sub ordenar()
filas = Range("a1").CurrentRegion.Rows.Count - 1
Set datos = Range("a2").Resize(filas, 2)
With datos
.Columns(1).Copy: Range("e2").PasteSpecial xlPasteValues
Range("e2").RemoveDuplicates Columns:=1
Set tabla = Range("e2").CurrentRegion
With tabla
For i = 1 To .Rows.Count
filas2 = Range("g1").CurrentRegion.Rows.Count
numero = .Cells(i, 1)
indice = WorksheetFunction.Match(numero, datos.Columns(1), 0)
cuenta = WorksheetFunction.CountIf(datos.Columns(1), numero)
Range("g1").Rows(filas2 + 1) = numero
Range("h1").Rows(filas2 + 1).Resize(1, cuenta) = WorksheetFunction.Transpose(datos.Cells(indice, 2).Resize(cuenta))
Next i
End With
End With
Range("a:f").EntireColumn.Delete
Range("a1:B1") = Array("NUMERO", "PARTE")
Set datos = Nothing: Set tabla = Nothing
End Sub
Funciono perfecto, Gracias!
Una mejor manera de dar las gracias es evaluando mi respuesta
