Cómo convertir una cadena internacional en VBA y Excel

A menudo, cuando la importación de datos en una hoja de cálculo de Microsoft Excel , usted puede venir a través de números con formato de texto . Debido a esto, los cálculos y las fórmulas no se pueden devolver resultados exactos. Hay una diferencia entre el carácter " 9 " y el número entero 9 . Cuando se convierte en ASCII, el carácter o símbolo " 9 " toma el valor entero 57 . En Excel , las operaciones aritméticas por lo general " ignoran " las celdas que contienen los valores de cadena , y esto podría dar lugar a discrepancias , que a menudo son difíciles de detectar. Conversión de valores de cadena en enteros y decimales antes de hacer cálculos puede evitar esto. Instrucciones
mediante Excel Operadores y Funciones
1

Agregar cero a la cadena a convertir a decimal. Por ejemplo , si la celda "A1 " contiene el valor de cadena " 123400 ", la fórmula a continuación lo convertirá en el número 123400 .

A1 = 0
2

utilizar el valor función . Esto funciona con numérica, cadenas de fecha y hora , pero no con el día como " Domingo " o " Lunes ". Por ejemplo , si la celda "A1 " contiene " 26 de diciembre 2011 , " la siguiente fórmula se convertirá a 40.903 , lo que equivale al 12/26/2011 en el formato "mm /dd /yyyy" .

= VALOR (A1 )
3

Eliminar apóstrofes principales . Seleccione el rango de celdas que contiene cadenas de números y luego presione "CTRL + H" Escriba un apóstrofo en el " Buscar" cuadro y luego haga clic en "Reemplazar todo . "
4

Vuelva a introducir los valores en las celdas manualmente. Haga doble clic en una celda que tiene un valor de cadena y luego presionar " Enter".
Utilizar una macro
5

Press "ALT + F8 " para abrir el " Macros " cuadro de diálogo. Enter " StringToInt " en el campo " Nombre de la macro " y haga clic en "Crear ".
6

Escriba el siguiente código en el editor de VBA.

Sub StringToInt ()

Rng As Range

Dim str

For Each Rng En Selección

On Error Resume Next

str = Rng.Value

Rng.NumberFormat = " 0 "

Rng.FormulaR1C1 = str

Siguiente Rng

End Sub
7

Prensa " ALT + Q " para cerrar el editor de VBA y vuelva a su hoja de trabajo. Seleccione las celdas que desea convertir.
8

Press "ALT + F8 " para abrir el cuadro de diálogo " Macros " de nuevo. Seleccione " StringToInt " de la lista y haga clic en "Ejecutar ".