Copiar 1 numero de 2 cifras en 2 celdas
Necesitaría una macro para copiar números de 2 cifras (del 00 al 99) en 2 celdas.
Ejemplo: tengo el numero 23 en la celda B1 y quiero copiar el 2 en la celda C1 y el 3 en la celda D1
La base de datos sería la columna B1: B10
2 respuestas
Respuesta de Dante Amor
1
Te anexo la macro
Sub CopiarNumeros()
'Por.Dante Amor
With Range("C1:C10")
.FormulaR1C1 = "=IF(LEN(RC[-1])=1,""0"",LEFT(RC[-1],1))"
.Value = .Value
.Offset(0, 1).FormulaR1C1 = "=RIGHT(RC[-2],1)"
.Offset(0, 1).Value = .Offset(0, 1).Value
End With
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
