Saltar al contenido

codigo de agrupacion y eliminacion de datos

publicado

hola expertos me pueden por favor colaborar con los siguientes dos codigos
tengo un rango de datos numericos que van desde "a1:sx42" pero hay varias celdas vacias y necesito agrupar todos esos datos en una columna en mi caso "ut"
y el segundo codigo seria que elimine las celdas vacias de la columna ut
le agradezco que los codigos sean lo mas rapido posible al ejecutarse

Featured Replies

publicado

Hola jhon fredycomo no compartes archivo pues simplemente adapta el código a tus necesidades. Un saludo

GIF.gif

publicado
  • Autor

aunque tengo demasiados datos para agrupar , habra algo mas rapido 

 

publicado

Prueba con esto:

Sub TransponerA1SX42()
Application.ScreenUpdating = False
y = Columns("UT").Column
For columna = 1 To Columns("SX").Column
 x = (columna - 1) * 42 + 1
 Range(Cells(x, y), Cells(x + 41, y)).Value = _
         Range(Cells(1, columna), Cells(42, columna)).Value
Next
Columns(y).Sort Key1:=Columns(y)
End Sub

 

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.