Jeśli chcesz, aby kod VBA usuwał wszystkie końcowe spacje tylko w aktywnym arkuszu, ten artykuł na pewno ci pomoże. Wiele razy błędnie zostawialiśmy spację na końcu lub czasami kopiujemy dane z sieci i nie zauważamy. W tym artykule dowiemy się, jak wyeliminować błędną przestrzeń.
Pytanie): W Excelu możemy użyć funkcji TRIM z SUBSTITUTE & CHAR, tj. =TRIM(SUBSTITUTE(A1,CHAR(160),"")), aby usunąć końcowe spacje na końcu dowolnego tekstu.
Chciałbym, aby makro pomogło mi usunąć wszystkie niepotrzebne spacje pozostawione na końcu ciągu.
Aby uzyskać kod do usuwania spacji na końcu tekstu; musimy wykonać poniższe kroki, aby uruchomić edytor VB.
- Kliknij kartę Deweloper
- Z grupy Kod wybierz Visual Basic
Skopiuj następujący kod w module arkusza roboczego
Przestrzeń podrzędna()
Dim c As Range, rngConstants As Range
Przy błędzie Wznów Dalej
Ustaw rngConstants = ActiveSheet.UsedRange.SpecialCells(2, 2)
W przypadku błędu Przejdź do 0
Jeśli nie rngConstants to nic, to
„optymalizacja wydajności”
Application.ScreenUpdating = Fałsz
Application.Calculation = xlCalculationManual
'przycinanie komórek, w tym znak 160
For Each c In rngConstants
c.Value = Trim$(Application.Clean(Replace(c.Value, Chr(160), " ")))
Następny c
'resetowanie ustawień
Application.ScreenUpdating = Prawda
Aplikacja.Calculation = xlCalculationAutomatic
Zakończ, jeśli
Napis końcowy
- Spowoduje to usunięcie wszystkich spacji na końcu.
Uwaga: powyższe makro będzie działać tylko w activesheet.
W ten sposób możemy usunąć końcowe spacje na końcu, używając kodu VBA.
Pobierz - Usuń końcowe miejsce przez VBA - xlsm