Separar números de 2 dígitos en unidades

Necesito una macro para separar 20 números de 2 dígitos en unidades de la fila A1:T1 y copiarlas a partir de la celda U1, y así sucesivamente hasta completar la fila A21:T21

Envío ejemplo de lo solicitado

Respuesta
1

Te adjunto la macro que podrás ejecutarla desde el mismo Editor, o menú Macros, o asignarla a un botón o atajo de teclado (*)

Sub separaDigitos()
'x Elsamatilde
Dim i As Byte, x As Byte, y As Byte
For i = 1 To 21
    y = 21                  'col destino = U
    For x = 1 To 20
        Cells(i, y) = Left(Format(Cells(i, x), "00"), 1)
        Cells(i, y + 1) = Right(Cells(i, x), 1)
        y = y + 2
    Next x
Next i
End Sub

Sdos y no olvides marcar una valoración si el tema queda resuelto.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas