U slučaju da želite da VBA kôd ukloni sve prazne prostore samo na aktivnom listu, ovaj će vam članak definitivno pomoći. Često smo greškom ostavljali razmak na kraju ili ponekad kopiramo podatke s weba i ne primjećujemo. U ovom ćemo članku naučiti kako ukloniti zaostali prostor pogreškom.
Pitanje): U Excelu možemo koristiti funkciju TRIM sa ZAMJENA & CHAR, tj. = TRIM (ZAMJENA (A1, CHAR (160), "")) za uklanjanje zaostalog prostora na kraju bilo kojeg teksta.
Želio bih da mi Makro pomogne u uklanjanju svih nepotrebnih razmaka ostavljenih na kraju niza.
Da biste dobili kôd za uklanjanje razmaka na kraju teksta; moramo slijediti korake u nastavku za pokretanje VB uređivača.
- Kliknite karticu Developer
- Iz grupe kodova odaberite Visual Basic
Kopirajte sljedeći kôd u modul radnog lista
Podrezani prostor ()
Dim c As Range, rngConstants As Range
Uključeno Slijedi nastavak greške
Postavi rngConstants = ActiveSheet.UsedRange.SpecialCells (2, 2)
Uključeno Greška Idi na 0
Ako nije rngConstants je ništa
'optimizirati performanse
Application.ScreenUpdating = Netačno
Primjena.Izračun = xlProračunPriručnik
'trim ćelije uključujući char 160
Za svaki c U rngKonstanti
c.Value = Trim $ (Application.Clean (Zamijeni (c.Value, Chr (160), "")))
Sljedeće c
'resetiranje postavki
Application.ScreenUpdating = Istina
Primjena.Izračun = xlIzračunAutomatski
Završi ako
Kraj podm
- Time ćete ukloniti sve razmake na kraju.
Napomena: Gornji makro pokrenut će se samo na aktivnoj tablici.
Na ovaj način možemo ukloniti krajnje razmake na kraju, koristeći VBA kôd.
Preuzmi - Ukloni prateći prostor kroz VBA - xlsm