Cómo eliminar todos los extremos de puntuación y en Excel

Cuando se trabaja dentro de una hoja de cálculo Microsoft Excel 2010, la forma en que se formatea el texto puede ser muy importante. Si bien se puede controlar la forma en que se introduce texto en las celdas, si ha importado información de otra fuente, puede contener todo tipo de formato y caracteres que no desee en la hoja de cálculo. Si los datos se encuentra actualmente en todas las tapas y contiene puntuacion, puede utilizar VBA, el lenguaje de programación incorporado, para escribir una macro rápida que cambiará la capitalización y eliminar toda marca puntuacion de texto en la hoja de cálculo.

Instrucciones

1 Abra la hoja de cálculo Excel 2010 en la que desea eliminar puntuacion y el uso de un caso diferente. Haga clic en la pestaña "desarrollador" en la parte superior de la pantalla. Haga clic en el botón "Grabar macro", situado en el extremo izquierdo de la cinta de opciones.

2 Tipo de "RemovePunctuationCaps" en el campo "Nombre de la macro". Enter "q" en el campo "Clave de acceso directo". Haga clic en "Aceptar" para cerrar la ventana. Haga clic en el botón "Stop" en la cinta para detener la grabación de la macro.

3 Haga clic en el botón de "Visual Basic" en la cinta para iniciar el editor de VBA. Haga doble clic en "Módulo 1" en el lado izquierdo del editor. Si ya ha creado un módulo de este libro, se tendrá que hacer clic en el último módulo de la lista, en lugar de "Módulo 1." Verá "RemovePunctuationCaps Sub ()" en la parte derecha de la ventana.

4 Haga clic en el lado derecho de la ventana. Arrastre el puntero del ratón sobre el texto verde entre "Sub Eliminar ..." y "End Sub". Eliminar todo este texto de manera que las líneas "Sub" y "End Sub" son todos los que existen.

5 Copiar y pegar el siguiente código entre las líneas "End Sub" en el editor de VBA "Sub" y:

RNG tenue como gama

Para cada RNG de Selección

rng.Value = ConvCadena (rng.Text, vbProperCase)

Siguiente RNG

Esto establecerá una variable llamada "RNG" y proporcionar el código necesario para cambiar su selección en la caja apropiada. Si prefiere usar minúsculas, cambiar "vbProperCase" a "vbLowerCase."

6 Introduzca el siguiente fragmento de código entre el último código y la línea "" End Sub ":

Con CreateObject ( "VBScript.RegExp")

.Pattern = "[^ A-Za-z0-9 \]"

.global = True

For Each rng In Selection.SpecialCells(xlCellTypeConstants)

rng.Value = .Colocar (rng.Value, vbNullString)

Siguiente RNG

Terminar con

Esto eliminará todos puntuacion de las células seleccionadas.

7 Haga clic en la "X" en la esquina superior derecha del editor para cerrarla. Haga clic en la celda o celdas donde se tiene el texto que desea convertir. Pulse "Ctr-Q" y la macro llevará a cabo la tarea.