Če želite, da koda VBA odstrani vse sledilne presledke samo na aktivnem listu, vam bo ta članek zagotovo v pomoč. Velikokrat smo na koncu napak pustili presledek ali pa včasih kopiramo podatke s spleta in tega ne opazimo. V tem članku se bomo naučili, kako odpraviti prostor, ki je ostal po pomoti.
Vprašanje): V Excelu lahko s funkcijo TRIM uporabimo SUBSTITUTE & CHAR, tj. = TRIM (SUBSTITUTE (A1, CHAR (160), "")), da odstranimo zadnji prostor na koncu katerega koli besedila.
Želim, da mi makro pomaga odstraniti vse nepotrebne prostore, ki ostanejo na koncu niza.
Če želite dobiti kodo za odstranitev presledka na koncu besedila; Za zagon urejevalnika VB moramo slediti spodnjim korakom.
- Kliknite zavihek Razvijalec
- V skupini Koda izberite Visual Basic
Kopirajte naslednjo kodo v modul delovnega lista
Podrejeni prostor ()
Dim c As Range, rngConstants As Range
On Napaka Nadaljuj Naprej
Nastavi rngConstants = ActiveSheet.UsedRange.SpecialCells (2, 2)
Pri napaki Pojdi na 0
Če ni rngConstants potem ni nič
'optimiziranje zmogljivosti
Application.ScreenUpdating = Napačno
Application.Calculation = xlCalculationManual
'trim celice, vključno s char 160
Za vsako c V rngConstantah
c.Value = Trim $ (Application.Clean (Replace (c.Value, Chr (160), "")))
Naprej c
'ponastavi nastavitve
Application.ScreenUpdating = Res
Application.Calculation = xlCalculationAutomatic
Konec Če
End Sub
- S tem boste odstranili vse presledke na koncu.
Opomba: Zgornji makro se bo izvajal samo na delovnem listu.
Na ta način lahko s pomočjo kode VBA odstranimo zaključne presledke na koncu.
Prenos - Odstranite zadnji prostor prek VBA - xlsm