Copiar conjunto de datos de una columna a otra

[mrocf]

Hola! StopTech. Incorpora la siguiente macro:

Código PHP:

  Sub AgruparCeldas()
Dim ii As Long
Const qMax As Byte = 49
Const myOffset As Byte = 4

With WorksheetFunction

For ii = 0 To .Ceiling(Selection.Count / qMax, 1) - 1
  Selection(1 + ii).Offset(, myOffset) = _
    Join(.Transpose(Selection(1 + qMax * ii).Resize(qMax)), ";")
Next ii

If Selection.Count Mod qMax > 0 Then
  With Selection(ii).Offset(, myOffset)
    .Value = Evaluate("left(" & _
      .Address & ", len(" & _
      .Address & ") - " & _
      qMax - (Selection.Count Mod qMax) & ")")
  End With
End If

End With
End Sub 
   

Y procederás así:
a) Selecciona el rango en cuestión (por ejemplo A2:A100)
b) Y tras seleccionar el rango, ejecuta la macro.

Verás lo pedido con un desplazamiento lateral de 4 columnas las que, obviamente, puedes modificar a tu conveniencia.

¿Es lo que estabas buscando?
Saludos, Cacho.