-
Cómo quitar caracteres en una celda en Excel 2007 con VBA
-
de Microsoft Visual Basic para Aplicaciones (VBA) es un subconjunto de Visual Basic que se utiliza para personalizar las aplicaciones de Microsoft Office. Un pedazo de código VBA, una macro, puede sustituir muchas funciones repetitivas como buscar y reemplazar. Si desea eliminar ciertos caracteres a partir de células, como puntos o comas, escribir una rutina para llevar a cabo la tarea para usted. En lugar de tener que hacer clic en "Buscar y reemplazar" en múltiples ocasiones, puede obtener VBA para realizar la tarea para usted en un pulsador.
Instrucciones
1 Pulse la tecla "Alt" + "F11" en Excel para abrir el Editor de Visual Basic (VBE).
2 Haga clic en "Insertar"> "Módulo".
3 Cortar y pegar el código siguiente en la ventana en blanco:
Option Explicit
Quitar Sub ()
Dim rgxRegExp As Object
Dim rngCell como gama, como gama rngRange
Establecer rngRange = Sheet1.Range ( "A1: A3")
Establecer rgxRegExp = CreateObject ( "VBScript.RegExp")
rgxRegExp.Global = True
rgxRegExp.Pattern = "\ |.,"
con la aplicación
.Calculation = XlCalculationManual
.EnableEvents = False
.ScreenUpdating = False
Terminar con
Para cada rngCell En rngRange.SpecialCells (xlCellTypeConstants)
rngCell.Value = rgxRegExp.Replace (rngCell.Value, vbNullString)
Siguiente
con la aplicación
.Calculation = XlCalculationAutomatic
.EnableEvents = True
.ScreenUpdating = True
Terminar con
End Sub
4 Cambiar el rango para que coincida con el rango de datos que desea quitar caracteres de. Por ejemplo, si desea eliminar los caracteres a partir de células D1 a D110 en la hoja de trabajo 2, línea 5 el cambio en el código para leer:
Establecer rngRange = Sheet2.Range ( "D1: D110").
5 Cambiar el código para reflejar los caracteres que desee eliminar de las células en la hoja de cálculo. El código escrito como quita puntos o comas (rgxRegExp.Pattern = "|."). Usted podría cambiar de código que elimina las comas y guiones (rgxRegExp.Pattern = "\, | -") o períodos y porcentajes (rgxRegExp.Pattern = "|."), O se puede sustituir los números y otros caracteres especiales.
6 Pulse la tecla "F5" para ejecutar la rutina.
Consejos y advertencias
- No es necesario para salir de la VBE para comprobar si el código ha realizado la acción que se esperaba. Alternar entre la hoja y el VBA pulsando la tecla "Alt" + "F11".