Как да замените множество интервали с един интервал от клетки в Excel?
Да предположим, че имам списък с текстови низове, който съдържа множество интервали, сега трябва да заменя тези интервали с един интервал сред текстовите низове, за да разделя думите, както е показано на следната екранна снимка. Как мога да заменя множеството интервали с едно наведнъж, без да ги премахвам един по един?
Заменете няколко интервала с един интервал, като използвате формула
Заменете няколко интервала с един интервал, като използвате VBA код
Заменете няколко интервала с един интервал, като използвате Kutools за Excel
Заменете няколко интервала с един интервал, като използвате формула
В Excel нормалната функция за намиране и замяна може да не работи добре за решаването на този проблем, така че можем да приложим проста формула, за да се справим с него. Моля, направете следното:
1. Въведете тази формула: =ПОДРЕЖАВАНЕ(ЗАМЕСТВАНЕ(A2,CHAR(32)," ")) в празна клетка освен стойността на вашата клетка, вижте екранната снимка:
2. След това натиснете Въведете клавиш, за да получите резултата, и изберете клетка B2, след това плъзнете манипулатора за запълване към диапазона клетки, към които искате да приложите тази формула, и всички допълнителни интервали са премахнати от текстовите низове и само един единствен интервал ще бъде запазен сред Текстът. Вижте екранна снимка:
Заменете няколко интервала с един интервал, като използвате VBA код
Ако се интересувате от кода на VBA, мога да създам код за вас, за да замените няколко интервала с един, моля, направете следното:
1. Моля, задръжте ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2, След това кликнете Поставете > Модулии поставете следния код в Модули Window.
VBA код: Заменете няколко интервала с един интервал
Sub replace_multiplespaces()
'Updateby Extendoffice
Dim x As Range
Dim Workx As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set Workx = Application.Selection
Set Workx = Application.InputBox("Range", xTitleId, Workx.Address, Type:=8)
For Each x In Workx
x = WorksheetFunction.Trim(x)
Next x
End Sub
3. След това натиснете F5 за да изпълните този код и ще изскочи поле за подкана, за да ви напомни, че избирате диапазона от данни, който искате да премахнете допълнителните интервали, вижте екранната снимка:
4, И после щракнете върху OK всички излишни интервали са заменени с единичен интервал в текста.
Заменете няколко интервала с един интервал, като използвате Kutools за Excel
Ако имате други видове интервали, които трябва да бъдат премахнати, като например премахване на началните интервали, завършващите интервали, всички интервали от текста, ще ви препоръчам мощен инструмент --Kutools за Excel, със Премахване на интервали помощна програма, можете да премахнете всички интервали, които ви трябват, като начален интервал, завършващи интервали, всички интервали...
Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
След инсталиране Kutools за Excel, моля, направете следното:
1. Изберете диапазона от данни, който искате да премахнете допълнителните интервали.
2. Щракнете Kutools > Текст > Премахване на интервали, вижте екранна снимка:
3. В Премахване на интервали диалогов прозорец, изберете Всички излишни пространства от Тип пространства и можете да видите резултата от Предварителен преглед панел, вижте екранна снимка:
4, И после щракнете върху Ok or Добавете Обява бутон, всички допълнителни интервали са премахнати от клетката и оставят само един интервал сред текста.
Кликнете, за да научите повече за тази функция за премахване на пространства.
Щракнете, за да изтеглите Kutools за Excel и безплатна пробна версия сега!
Демонстрация: Заменете няколко интервала с един интервал с помощта на Kutools за Excel
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!