V případě, že chcete, aby kód VBA odstranil všechny koncové mezery pouze v aktivním listu, pak vám tento článek určitě pomůže. Mnohokrát jsme na konci nechali mezeru omylem nebo někdy kopírujeme data z webu a nevšimneme si toho. V tomto článku se naučíme, jak odstranit místo zbývající omylem.
Otázka): V aplikaci Excel můžeme použít funkci TRIM s funkcí SUBSTITUTE & CHAR, tj. = TRIM (SUBSTITUTE (A1, CHAR (160), "")) k odstranění koncové mezery na konci libovolného textu.
Chtěl bych, aby mi makro pomohlo s odstraněním všech zbytečných mezer na konci řetězce.
Chcete -li získat kód pro odstranění mezery na konci textu; pro spuštění VB editoru musíme postupovat podle níže uvedených kroků.
- Klikněte na kartu Vývojář
- Ze skupiny kódů vyberte Visual Basic
Zkopírujte následující kód do modulu listu
Sub trimspace ()
Dim c As Range, rngConstants As Range
Při chybě Pokračovat Další
Nastavit rngConstants = ActiveSheet.UsedRange.SpecialCells (2, 2)
Při chybě GoTo 0
Pokud není rngConstants nic, pak
'optimalizovat výkon
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'trimovací buňky včetně char 160
Pro každé c v rngConstants
c.Value = Oříznout $ (Application.Clean (Nahradit (c.Value, Chr (160), "")))
Další c
'resetovat nastavení
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Konec If
End Sub
- Tím se odstraní všechny mezery na konci.
Poznámka: Výše uvedené makro se spustí pouze na aktivním listu.
Tímto způsobem můžeme odstranit koncové mezery na konci pomocí kódu VBA.
Stáhnout - Odebrat koncový prostor pomocí VBA - xlsm