Jos haluat VBA -koodin poistavan kaikki aktiiviset taulukon kaikki välilyönnit, tämä artikkeli auttaa sinua varmasti. Monta kertaa jätimme tyhjän tilan loppuun virheellisesti tai joskus kopioimme tietoja verkosta ja emme huomaa. Tässä artikkelissa opimme poistamaan virheessä jätetyn tilan.
Kysymys): Excelissä voimme käyttää TRIM -funktiota, jossa on SUBSTITUTE & CHAR eli = TRIM (SUBSTITUTE (A1, CHAR (160), ""))) poistaa tekstin lopussa olevan välilyönnin.
Haluaisin makron auttavan minua poistamaan kaikki tarpeettomat tilat merkkijonon lopussa.
Saada koodi tekstin lopussa olevan tilan poistamiseksi; meidän on noudatettava alla olevia vaiheita VB -editorin käynnistämiseksi.
- Napsauta Kehittäjä -välilehteä
- Valitse koodiryhmästä Visual Basic
Kopioi seuraava koodi laskentataulukkomoduulissa
Alareunatila ()
Dim c As Range, rngConstants As Range
Virhe Jatka seuraavaksi
Aseta rngConstants = ActiveSheet.UsedRange.SpecialCells (2, 2)
Virhe GoTo 0
Jos ei rngConstants ole sitten mitään
'optimoi suorituskyky
Application.ScreenUpdating = Väärä
Application.Calculation = xlCalculationManual
'leikkasolut, sis. char 160
Jokaiselle c In rngConstants
c.Value = Trim $ (Application.Clean (Korvaa (c.Value, Chr (160), "")))
Seuraava c
'palauta asetukset
Application.ScreenUpdating = Totta
Application.Calculation = xlCalculationAutomatic
Loppu Jos
End Sub
- Tämä poistaa kaikki välilyönnit lopussa.
Huomautus: Yllä oleva makro suoritetaan vain aktiivisivulla.
Tällä tavalla voimme poistaa lopussa olevat välilyönnit VBA -koodilla.
Lataa - Poista jäljessä oleva tila VBA: n kautta - xlsm