Hvis du vil at en VBA -kode skal fjerne alle etterfølgende mellomrom i bare et aktivt ark, vil denne artikkelen definitivt hjelpe deg. Mange ganger forlot vi et mellomrom på slutten ved en feil, eller noen ganger kopierer vi data fra nettet og merker det ikke. I denne artikkelen lærer vi hvordan du fjerner plassen igjen ved en feil.
Spørsmål): I Excel kan vi bruke TRIM -funksjon med SUBSTITUTE & CHAR dvs. = TRIM (SUBSTITUTE (A1, CHAR (160), "")) for å fjerne etterfølgende plass på slutten av en hvilken som helst tekst.
Jeg vil gjerne ha en makro som hjelper meg med å fjerne alle unødvendige mellomrom igjen på slutten av strengen.
For å få koden for å fjerne plass på slutten av teksten; vi må følge trinnene nedenfor for å starte VB -editor.
- Klikk på kategorien Utvikler
- Velg Visual Basic fra kodegruppen
Kopier følgende kode i regnearkmodulen
Sub trimspace ()
Dim c As Range, rngConstants As Range
Ved feil Fortsett neste
Angi rngConstants = ActiveSheet.UsedRange.SpecialCells (2, 2)
Ved feil GoTo 0
Hvis ikke rngConstants er ingenting da
'optimalisere ytelsen
Application.ScreenUpdating = Falsk
Application.Calculation = xlCalculationManual
'trimceller inkl. røyke 160
For hver c In rngConstants
c.Value = Trim $ (Application.Clean (Erstatt (c.Value, Chr (160), "")))
Neste c
'Tilbakestill innstillinger
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Slutt om
Slutt Sub
- Dette fjerner alle mellomrommene på slutten.
Merk: Makroen ovenfor kjører bare på det aktive arket.
På denne måten kan vi fjerne bakrommene på slutten ved hjelp av VBA -kode.
Last ned - Fjern etterfølgende plass gjennom VBA - xlsm