Texto a valor numerico

29/07/2007 - 04:19 por Gerardo Roda | Informe spam
Hola a todos, tengo una pregunta que tratare de hacerla lo mas simple
posible.
Tengo una planilla excel importada de un Txt, producto de un Ocr.
Resulta que en la columna donde se supone que voy a tener valores numericos
tengo un texoto tipo
" 12.456,87" sin las comillas. Resulta que tiene espacios al principio,
tiene punto en el medio (y es mi separador de decimales) y tambien un coma.
Mi pregunta es: Cual es la manera mas sencilla de convertir ese texto a
numero 12456.87 ?
Un apunte, son tipo mil celdas a convertir.-

Gracias
 

Leer las respuestas

#1 Héctor Miguel
29/07/2007 - 06:19 | Informe spam
hola, Gerardo !

Tengo una planilla excel importada de un Txt, producto de un Ocr.
Resulta que en la columna donde se supone que voy a tener valores numericos tengo un texoto tipo " 12.456,87" sin las comillas.
Resulta que tiene espacios al principio, tiene punto en el medio (y es mi separador de decimales) y tambien un coma.
Mi pregunta es: Cual es la manera mas sencilla de convertir ese texto a numero 12456.87 ?
Un apunte, son tipo mil celdas a convertir.-



el siguiente ejemplo *supone* que inicias en la celda 'C2' y requieres que se amplie hasta la ultima celda *ocupada* de la columna 'C'
inserta una columna a la derecha para hacer la *conversion* [provisionalmente... luego la elimina]
y re/convierte los valores originales de la columna 'C' [tomando como base el resultado de la columna *auxiliar*

Sub Texto_a_numero()
With Range([c2], [c65536].End(xlUp))
.Cells(1).Offset(, 1).EntireColumn.Insert
.Offset(, 1).FormulaArray = _
"=trim(substitute(substitute(" & .Address & ",""."",""""),"","","".""))"
.Value = .Offset(, 1).Value
.Cells(1).Offset(, 1).EntireColumn.Delete
End With: ActiveSheet.UsedRange
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares