Om du vill att en VBA -kod ska ta bort alla bakre mellanslag i endast ett aktivt ark, kommer den här artikeln definitivt att hjälpa dig. Många gånger lämnade vi ett utrymme i slutet av misstag eller ibland kopierar vi data från webben och märker inte. I den här artikeln kommer vi att lära oss hur man eliminerar det utrymme som finns kvar av misstag.
Fråga): I Excel kan vi använda TRIM -funktionen med SUBSTITUTE & CHAR, dvs. = TRIM (Substitute (A1, CHAR (160), "")) för att ta bort efterföljande utrymme i slutet av vilken text som helst.
Jag skulle vilja att ett makro skulle hjälpa mig att ta bort alla onödiga mellanslag som finns kvar i slutet av strängen.
För att få koden för att ta bort utrymme i slutet av texten; vi måste följa stegen nedan för att starta VB -editor.
- Klicka på fliken Utvecklare
- Välj Visual Basic i kodgruppen
Kopiera följande kod i kalkylbladsmodulen
Sub trimspace ()
Dim c As Range, rngConstants As Range
Vid fel Återuppta nästa
Ange rngConstants = ActiveSheet.UsedRange.SpecialCells (2, 2)
Vid fel GoTo 0
Om inte rngConstants är ingenting då
'optimera prestanda
Application.ScreenUpdating = Falskt
Application.Calculation = xlCalculationManual
'trimceller inkl röding 160
För varje c In rngConstants
c.Value = Trim $ (Application.Clean (Ersätt (c.Value, Chr (160), "")))
Nästa c
'Återställ inställningar
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Avsluta om
Avsluta Sub
- Detta kommer att ta bort alla utrymmen i slutet.
Obs! Makroet ovan körs bara på det aktiva bladet.
På detta sätt kan vi ta bort de bakre utrymmena i slutet med VBA -kod.
Ladda ner - Ta bort efterföljande utrymme via VBA - xlsm