Hvis du vil have en VBA -kode til at fjerne alle de efterfølgende mellemrum i kun aktivt ark, så vil denne artikel helt sikkert hjælpe dig. Mange gange forlod vi en plads i slutningen ved en fejl, eller nogle gange kopierer vi data fra internettet og lægger ikke mærke til det. I denne artikel lærer vi, hvordan du fjerner den plads, der er tilbage ved en fejl.
Spørgsmål): I Excel kan vi bruge TRIM -funktion med SUBSTITUTE & CHAR, dvs. = TRIM (SUBSTITUTE (A1, CHAR (160), "")) til at fjerne efterfølgende mellemrum i slutningen af enhver tekst.
Jeg vil gerne have en makro til at hjælpe mig med at fjerne alle de unødvendige mellemrum, der er tilbage i slutningen af strengen.
For at få koden til fjernelse af plads i slutningen af teksten; vi skal følge nedenstående trin for at starte VB -editor.
- Klik på fanen Udvikler
- Vælg Visual Basic i kodegruppen
Kopier følgende kode i regnearksmodulet
Sub trimspace ()
Dim c As Range, rngConstants As Range
Ved fejl Genoptag næste
Indstil rngConstants = ActiveSheet.UsedRange.SpecialCells (2, 2)
Ved fejl GoTo 0
Hvis ikke rngConstants er intet
'optimere ydelsen
Application.ScreenUpdating = Falsk
Application.Calculation = xlCalculationManual
'trimceller inkl. forkullet 160
For hver c In rngConstants
c.Value = Trim $ (Application.Clean (Erstat (c.Value, Chr (160), "")))
Næste c
'Nulstil indstillingerne
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Afslut Hvis
Afslut Sub
- Dette fjerner alle mellemrum i slutningen.
Bemærk: Makroen ovenfor kører kun på det aktive ark.
På denne måde kan vi fjerne de efterfølgende mellemrum i slutningen ved hjælp af VBA -kode.
Download - Fjern efterfølgende plads gennem VBA - xlsm