Kui soovite, et VBA -kood eemaldaks kõik aktiivse lehe kõik tühikud, aitab see artikkel teid kindlasti. Mitu korda jätsime lõpus vea tühiku või mõnikord kopeerime andmeid veebist ja ei märka. Selles artiklis õpime, kuidas kõrvaldada veaga jäetud ruum.
Küsimus): Excelis saame funktsiooni TRIM kasutada koos asendaja ja märgiga, st = TRIM (ASENDUS (A1, CHAR (160), "")), et eemaldada teksti lõppu tühik.
Tahaksin, et Macro aitaks mul eemaldada kõik mittevajalikud tühikud, mis jäid stringi lõppu.
Koodi saamiseks tühiku eemaldamiseks teksti lõpus; VB redaktori käivitamiseks peame järgima alltoodud samme.
- Klõpsake vahekaarti Arendaja
- Valige koodirühmas Visual Basic
Kopeerige töölehe moodulis järgmine kood
Alam -trimmiruum ()
Dim c As Range, rngConstants As Range
Vea korral Jätka järgmist
Määra rngConstants = ActiveSheet.UsedRange.SpecialCells (2, 2)
Viga GoTo 0
Kui mitte rngConstants pole siis midagi
'optimeerida jõudlust
Application.ScreenUpdating = Vale
Application.Calculation = xlCalculationManual
'trimmirakud koos sümboliga 160
Iga c In rngConstants jaoks
c.Value = Trim $ (Application.Clean (Asenda (c.Value, Chr (160), "")))
Järgmine c
'Lähtesta seaded
Application.ScreenUpdating = Tõsi
Application.Calculation = xlCalculationAutomatic
Lõpp Kui
End Sub
- See eemaldab kõik tühikud lõpus.
Märkus. Ülaltoodud makro töötab ainult aktiivlehel.
Sel viisil saame lõpus olevad tühikud VBA koodi abil eemaldada.
Laadi alla - eemaldage lõppruum VBA kaudu - xlsm