Als u een VBA-code wilt om alle volgspaties in alleen het actieve blad te verwijderen, dan zal dit artikel u zeker helpen. Vaak hebben we aan het einde een spatie achtergelaten of soms kopiëren we gegevens van internet en merken we het niet op. In dit artikel zullen we leren hoe we de ruimte die per ongeluk is achtergelaten, kunnen elimineren.
Vraag): In Excel kunnen we de TRIM-functie gebruiken met SUBSTITUTE & CHAR, d.w.z. =TRIM(SUBSTITUTE(A1,CHAR(160)," ")) om de volgspatie aan het einde van elke tekst te verwijderen.
Ik zou graag een macro willen hebben om me te helpen bij het verwijderen van alle onnodige spaties aan het einde van de string.
Om de code te krijgen voor het verwijderen van spatie aan het einde van de tekst; we moeten de onderstaande stappen volgen om de VB-editor te starten.
- Klik op het tabblad Ontwikkelaar
- Selecteer in de codegroep Visual Basic
Kopieer de volgende code in werkbladmodule:
Sub-trimspatie()
Dim c As Range, rngConstants As Range
Bij fout Hervatten Volgende
Stel rngConstants = ActiveSheet.UsedRange.SpecialCells(2, 2) in
Bij fout Ga naar 0
Als niet rngConstants niets is, dan
'prestaties optimaliseren'
Application.ScreenUpdating = False
Toepassing.Berekening = xlBerekeningHandmatig
'trimcellen incl. char 160
Voor elke c In rngConstanten
c.Value = Trim$(Application.Clean(Replace(c.Value, Chr(160), " ")))
volgende c
'reset instellingen
Application.ScreenUpdating = True
Toepassing.Berekening = xlBerekeningAutomatisch
Stop als
Einde sub
- Hiermee worden alle spaties aan het einde verwijderd.
Opmerking: de bovenstaande macro wordt alleen op activesheet uitgevoerd.
Op deze manier kunnen we de volgspaties aan het einde verwijderen met behulp van VBA-code.
Download - Verwijder achterliggende spatie via VBA - xlsm