Actividad pública reciente
Ha valorado "Excelente" la respuesta
Macros manejo de columnas y strings
Prueba el siguiente código: Sub Texto() Do Until ActiveCell = "" If Not IsNumeric(ActiveCell.Value) = True Then Topo = Left(ActiveCell.Value, 2) ActiveCell.Offset(0, 1) = Topo End If ActiveCell.Offset(1, 0).Select Loop End Sub