В случай, че искате VBA код да премахне всички крайни пространства само в активен лист, тази статия определено ще ви помогне. Много пъти оставяхме място в края по грешка или понякога копираме данни от мрежата и не забелязваме. В тази статия ще научим как да премахнем оставеното място при грешка.
Въпрос): В Excel можем да използваме функцията TRIM с SUBSTITUTE & CHAR, т.е. = TRIM (SUBSTITUTE (A1, CHAR (160), "")), за да премахнем последното пространство в края на всеки текст.
Бих искал макрос да ми помогне при премахването на всички ненужни пространства, оставени в края на низа.
За да получите кода за премахване на място в края на текста; трябва да следваме стъпките по -долу, за да стартираме VB редактор.
- Кликнете върху раздела Разработчик
- От групата Кодове изберете Visual Basic
Копирайте следния код в модула на работен лист
Sub trimspace ()
Dim c As Range, rngConstants As Range
На грешка възобновяване на следващо
Задайте rngConstants = ActiveSheet.UsedRange.SpecialCells (2, 2)
При грешка GoTo 0
Ако не е rngConstants е нищо
„оптимизиране на производителността
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
"подстригващи клетки, включително char 160
За всеки c В rngConstants
c.Value = Trim $ (Application.Clean (Replace (c.Value, Chr (160), "")))
Следващ c
'нулиране на настройките
Application.ScreenUpdating = Вярно
Application.Calculation = xlCalculationAutomatic
Край Ако
End Sub
- Това ще премахне всички интервали в края.
Забележка: Горният макрос ще работи само в активен лист.
По този начин можем да премахнем крайните интервали в края, като използваме VBA код.
Изтегляне - Премахване на крайното пространство чрез VBA - xlsm