Slik fjerner tegn i en celle på Excel 2007 med VBA
Microsofts Visual Basic for Applications (VBA) er en undergruppe av Visual Basic som brukes til å tilpasse Microsoft Office-programmer. Et stykke VBA-kode, en makro, kan erstatte mange repeterende funksjoner som finne og erstatte. Hvis du ønsker å fjerne visse tegn fra celler, som punktum eller komma, skrive en rutine å utføre oppgaven for deg. I stedet for å måtte klikke "Søk og erstatt" flere ganger, kan du få VBA til å utføre oppgaven for deg i en knapp push.
Bruksanvisning
1 Trykk "Alt" + "F11" i Excel for å åpne Visual Basic Editor (VBE).
2 Klikk på "Insert"> "Module".
3 Klipp og lim inn følgende kode i tomt vindu:
Option Explicit
Sub Slett ()
Dim rgxRegExp As Object
Dim rngCell Som Range, rngRange As Range
Sett rngRange = Sheet1.Range ( "A1: A3")
Sett rgxRegExp = Create ( "VBScript.RegExp")
rgxRegExp.Global = True
rgxRegExp.Pattern = "\ |.,"
med Program
.Calculation = XlCalculationManual
.EnableEvents = False
.ScreenUpdating = False
End With
For hver rngCell I rngRange.SpecialCells (xlCellTypeConstants)
rngCell.Value = rgxRegExp.Replace (rngCell.Value, vbNullString)
neste
med Program
.Calculation = XlCalculationAutomatic
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
4 Endre området for å matche omfanget av data som du ønsker å fjerne tegn fra. For eksempel, hvis du vil fjerne tegn fra celler D1 til D110 i regnearket 2, endring linje 5 i koden for å lese:
Sett rngRange = Sheet2.Range ( "D1: D110").
5 Endre koden for å reflektere de tegnene du vil ha fjernet fra cellene i regnearket. Koden som er skrevet fjerner punktum eller komma (rgxRegExp.Pattern = "|.,"). Du kan endre til kode som fjerner komma og bindestrek (rgxRegExp.Pattern = "\, | -") eller perioder og prosenter (rgxRegExp.Pattern = "|.,"), Eller du kan erstatte tall og spesialtegn.
6 Trykk "F5" for å kjøre rutinen.
Hint
- Du trenger ikke å gå ut av VBE for å sjekke om koden har utført handlingen du forventet. Veksle mellom regnearket og VBA ved å trykke "Alt" + "F11".