Slik sletter Skille & All Caps i Excel

Når du arbeider i en Microsoft Excel 2010-regneark, kan måten teksten er formatert være svært viktig. Selv om du kan kontrollere hvordan du skriver inn tekst inn i cellene, hvis du har importert informasjon fra en annen kilde, kan det inneholde alle slags formatering og tegn på at du ikke vil ha på regnearket. Hvis dataene er i store bokstaver og inneholder tegnsetting, kan du bruke VBA, den innebygde programmeringsspråk, for å skrive en rask makro som vil endre store bokstaver og fjerne alle skilletegn fra tekst i regnearket.

Bruksanvisning

1 Åpne Excel 2010-regneark der du ønsker å fjerne tegnsetting og bruk en annen sak. Klikk på "Utvikler" fanen på toppen av skjermen. Klikk på "Registrer makro" -knappen, som ligger på den venstre enden av båndet.

2 Skriv "RemovePunctuationCaps" i den "Makronavn" -feltet. Enter "q" i "Shortcut Key" -feltet. Klikk "OK" for å lukke vinduet. Klikk på "Stop" -knappen på båndet for å stoppe makro fra innspillingen.

3 Klikk på "Visual Basic" -knappen på båndet for å starte VBA editor. Dobbeltklikk på "Modul 1" på venstre side av redaktøren. Hvis du allerede har opprettet en modul i denne arbeidsboken, må du klikke på den siste børsnotert modul, i stedet for "Module 1." Du vil se "Sub RemovePunctuationCaps ()" på høyre side av vinduet.

4 Klikk på høyre side av vinduet. Dra musepekeren over den grønne teksten mellom "Sub Fjern ..." og "End Sub". Slett all denne teksten, slik at "Sub" og "End Sub" linjer er alt som finnes.

5 Kopier og lim inn følgende kode mellom "Sub" og "End Sub" linjer i VBA redaktør:

Dim RNG As Range

For hver RNG i utvalg

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

Neste RNG

Dette vil etablere en variabel som heter "RNG" og oppgi koden som trengs for å endre valget i riktig sak. Hvis du heller vil bruke små bokstaver, endre "vbProperCase" til "vbLowerCase."

6 Skriv inn følgende kode mellom siste koden og "" End Sub "linje:

Med Create ( "vbscript.regexp")

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

.Global = True

For Each rng In Selection.SpecialCells(xlCellTypeConstants)

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

Neste RNG

End With

Dette vil fjerne all tegnsetting fra de valgte cellene.

7 Klikk på "X" i øvre høyre hjørne av editor for å lukke det. Klikk på cellen der du har teksten du vil konvertere. Trykk "Ctr-Q" og makro vil utføre oppgaven.