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
1 Respuesta
Respuesta de Elsa Matilde
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.
