Jei norite, kad VBA kodas pašalintų visas galines vietas tik aktyviame lape, šis straipsnis jums tikrai padės. Daug kartų palikome tarpą pabaigoje per klaidą arba kartais nukopijuojame duomenis iš žiniatinklio ir nepastebime. Šiame straipsnyje mes sužinosime, kaip pašalinti klaidą.
Klausimas): „Excel“ galime naudoti funkciją TRIM su SUBSTITUTE & CHAR, t.
Norėčiau, kad makrokomanda padėtų man pašalinti visas nereikalingas eilutės pabaigoje paliktas vietas.
Norėdami gauti tarpą teksto pabaigoje pašalinantį kodą; norėdami paleisti VB redaktorių, turime atlikti toliau nurodytus veiksmus.
- Spustelėkite skirtuką Kūrėjas
- Kodo grupėje pasirinkite „Visual Basic“
Nukopijuokite šį kodą darbalapio modulyje
Papildoma apipjaustymo erdvė ()
Dim c As Range, rngConstants As Range
Dėl klaidos Tęsti toliau
Nustatykite rngConstants = ActiveSheet.UsedRange.SpecialCells (2, 2)
Klaida „GoTo 0“
Jei ne rngConstants yra niekas
“optimizuoti našumą
Application.ScreenUpdating = Netiesa
Application.Calculation = xlCalculationManual
„apdailos ląstelės, įskaitant angą 160
Kiekvienam c In rngConstants
c.Value = Trim $ (Application.Clean (Pakeisti (c.Value, Chr (160), "")))
Kitas c
'atstatyti nustatymus
Application.ScreenUpdating = Tiesa
Application.Calculation = xlCalculationAutomatic
Pabaiga Jei
Pabaiga Sub
- Pabaigoje bus pašalintos visos vietos.
Pastaba: aukščiau pateikta makrokomanda bus vykdoma tik aktyviame lape.
Tokiu būdu, naudodami VBA kodą, gale galime pašalinti galines tarpus.
Atsisiųskite - pašalinkite galinę erdvę per VBA - xlsm