Copiar conjunto de datos de una columna a otra

[stoptech]

Bueno necesito copiar los datos de cada celda de una columna a una nueva columna, que los datos de cada celda de la primer columna separados por ";" en la columna nueva, y que haya un máximo de 49 celdas de la primer columna en cada celda de la nueva columna.

Por ejemplo:
Suponiendo que el número máximo de celdas es de 2.

Ci Cf

1 2 3
A as as;ds
B ds fd;re
C fd po;uy
D re hg;kj
E po
F uy
G hg
H kj

Columna inicial = Ci
Columna final = Cf



PD: se me hizo un re quilombo para explicar lo que necesitaba, espero que con el ejemplo se aclare un poco más.

[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.

[stoptech]

Si, exactamente eso es lo que estaba buscando.

Muchas gracias Cacho, sos un groso!

[mrocf]

Fue un gusto y hasta la próxima, Cacho.