Come rimuovere i caratteri in una cella in Excel 2007 con VBA

August 28

di Microsoft Visual Basic, Applications Edition (VBA) è un sottoinsieme di Visual Basic che viene utilizzato per personalizzare le applicazioni di Microsoft Office. Un pezzo di codice VBA, una macro, può sostituire molte funzioni ripetitive come trovare e sostituire. Se si desidera rimuovere alcuni caratteri da cellule, come i periodi o virgole, scrivere una routine per eseguire l'operazione per voi. Invece di dover cliccare su "Trova e sostituisci" più volte, è possibile ottenere VBA ad esercitare le funzioni per voi in un unico pulsante.

istruzione

1 Premere il tasto "Alt" + "F11" in Excel per aprire l'editor di Visual Basic (VBE).

2 Fai clic su "Inserisci"> "Modulo".

3 Tagliare e incollare il seguente codice nella finestra vuota:

Option Explicit

Rimuovere Sub ()

Dim rgxRegExp As Object

Dim rngCell come gamma, rngRange come gamma

Set rngRange = Sheet1.Range ( "A1: A3")

Set rgxRegExp = CreateObject ( "VBScript.RegExp")

rgxRegExp.Global = True

rgxRegExp.Pattern = "\ |."

con Application

.Calculation = XlCalculationManual

.EnableEvents = False

.ScreenUpdating = False

End With

Per ogni rngCell In rngRange.SpecialCells (xlCellTypeConstants)

rngCell.Value = rgxRegExp.Replace (rngCell.Value, vbNullString)

Il prossimo

con Application

.Calculation = XlCalculationAutomatic

.EnableEvents = True

.ScreenUpdating = True

End With

End Sub

4 Cambia la gamma per abbinare la gamma di dati che si desidera rimuovere i caratteri da. Ad esempio, se si desidera rimuovere i caratteri dalle cellule D1 a D110 in foglio 2, cambiare linea 5 in codice per leggere:

Set rngRange = Sheet2.Range ( "D1: D110").

5 Modificare il codice in modo da riflettere i caratteri che si desidera rimuovere dalle cellule nel foglio di lavoro. Il codice come scritto rimuove periodi o virgole (rgxRegExp.Pattern = "|."). Si potrebbe cambiare in codice che rimuove le virgole e trattini (rgxRegExp.Pattern = "\, | -") o periodi e percentuali (rgxRegExp.Pattern = "|."), Oppure si potrebbe sostituire i numeri e altri caratteri speciali.

6 Premere il tasto "F5" per eseguire la routine.

Consigli e avvertenze

  • Non è necessario uscire dal VBE per verificare se il codice ha eseguito l'azione che vi aspettavate. Alternare tra il foglio di lavoro e il VBA premendo il tasto "Alt" + "F11".