Microsoft's Visual Basic for Applications ( VBA ) is een subset van Visual Basic die wordt gebruikt om Microsoft Office-toepassingen te passen . Een stukje VBA-code , een macro , kan veel repeterende functies zoals zoeken en vervangen te vervangen . Als u wilt dat bepaalde personages uit cellen te verwijderen , zoals punten, komma's schrijven een routine om de taak uit te voeren voor u . In plaats van te klikken op " Zoeken en vervangen " meerdere keren , kunt u VBA krijgen om de taak voor u uitvoeren in een druk op de knop . Instructies
Druk " Alt " 1 + " F11 " in Excel om de Visual Basic Editor ( VBE ) te openen .
Klik 2 " Invoegen " > " Module . "
Cut 3 en plak de volgende code in het lege venster : Option Explicit Sub
verwijderen ( ) op Dim rgxRegExp als Voorwerp
Dim rngCell als Waaier , rngRange als Range
Stel rngRange = Sheet1.Range ( " A1 : A3 " ) op Twitter Stel rgxRegExp = CreateObject ( " VBScript . RegExp " ) op rgxRegExp.Global = True rgxRegExp.Pattern
= " \\ | . . , "
Met Application
Berekening = xlCalculationManual < br > . EnableEvents = False
. ScreenUpdating = False End met
voor Elke rngCell In rngRange.SpecialCells ( xlCellTypeConstants ) rngCell
. = xlCalculationAutomatic
. EnableEvents = True
value = rgxRegExp.Replace ( rngCell.Value , vbNullString ) Volgende
Met Application
. Berekening . ScreenUpdating = True End
met End Sub
4
Verander het bereik om het bereik van de gegevens die u wilt personages uit verwijderen overeenkomen . Bijvoorbeeld , als u wilt personages uit cellen D1 verwijderen om D110 in werkblad 2 , verandering lijn 5 in de code te lezen :
Stel rngRange = Sheet2.Range ( " D1 : D110 " ) .
Goedkope 5 Wijzig de code om de tekens die u wilt uit de cellen in het werkblad verwijderd weerspiegelen . De code zoals geschreven verwijdert periodes of komma's ( rgxRegExp.Pattern = " \\ | . , " ) . Je zou kunnen veranderen om code die komma's en koppeltekens verwijdert ( rgxRegExp.Pattern = " \\ , | - " ) of de periodes en percentages ( rgxRegExp.Pattern = " . \\ | , " ) , Of je kan de cijfers en andere speciale tekens te vervangen < . br >
Druk op " F5 " 6 om de routine te draaien .
|
