V prípade, že chcete, aby kód VBA odstránil všetky koncové medzery iba v aktívnom hárku, tento článok vám určite pomôže. Mnohokrát sme nechali na konci medzeru omylom alebo niekedy kopírujeme údaje z webu a nevšimneme si to. V tomto článku sa naučíme, ako odstrániť priestor, ktorý zostal omylom.
Otázka): V programe Excel môžeme na odstránenie koncovej medzery na konci ľubovoľného textu použiť funkciu TRIM so SUBSTITUTE & CHAR, tj = TRIM (SUBSTITUTE (A1, CHAR (160), "")).
Chcel by som, aby mi makro pomohlo odstrániť všetky nepotrebné medzery, ktoré zostali na konci reťazca.
Získať kód na odstránenie medzery na konci textu; na spustenie editora VB musíme postupovať podľa nižšie uvedených krokov.
- Kliknite na kartu Vývojár
- V skupine Kód vyberte položku Visual Basic
Skopírujte nasledujúci kód do modulu pracovného hárka
Vedľajší priestor ()
Dim c As Range, rngConstants As Range
Pri chybe Pokračovať Ďalej
Nastaviť rngConstants = ActiveSheet.UsedRange.SpecialCells (2, 2)
Pri chybe GoTo 0
Ak nie je rngConstants, potom nič
'optimalizovať výkon
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
„trimovacie bunky vrátane znaku 160
Pre každé c v rngKonštantách
c.Value = Orezať $ (Application.Clean (Nahradiť (c.Value, Chr (160), "")))
Ďalej c
'obnoviť nastavenia
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Koniec Ak
Koniec pod
- Tým sa odstránia všetky medzery na konci.
Poznámka: Vyššie uvedené makro sa spustí iba na aktívnom hárku.
Týmto spôsobom môžeme pomocou kódu VBA odstrániť koncové medzery na konci.
Stiahnuť - Odstrániť koncový priestor prostredníctvom VBA - xlsm