Tecnología

Inicio

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".