Как да разменяте или превключвате текст в една клетка в Excel?
В много случаи може да се наложи да разменяте текста в една клетка за някои цели. Например, клетка съдържа име Смит Джон, трябва да размените текстовете в клетката, за да промените името на Джон Смит. Тази статия изброява някои методи за решаване на този проблем.
Разменяйте или превключвайте текст в една клетка с помощта на формула
Разменяйте или превключвайте текст в една клетка с помощта на VBA код
Лесно разменяйте или превключвайте текст в рамките на една клетка от Kutools за Excel
Разменяйте или превключвайте текст в една клетка с помощта на формула
Формулата по-долу може да ви помогне да разменяте текстове в една клетка в Excel. Моля, направете следното.
1. Изберете празна клетка, за да намерите разменените данни, въведете формула в лентата за формули и след това натиснете Въведете ключ. Вижте екранна снимка:
=RIGHT(A2,LEN(A2)-FIND(" ",A2)) & " " & LEFT(A2,FIND(" ",A2)-1)
2. Изберете клетката с резултати, след което плъзнете манипулатора за попълване надолу, за да получите останалите резултати, както е показано на екранната снимка по-долу.
След това можете да видите, че първото и фамилното име са разменени в определени клетки.
Забележка: Този метод може да разменя само два текста в една клетка, които са разделени с интервал.
Лесно разменяйте или превключвайте текст в една клетка в Excel:
- Обратен текст полезност на Kutools за Excel може да ви помогне лесно да разменяте текст в една клетка чрез определен разделител в Excel, както е показано в демонстрацията по-долу.
Изтеглете и опитайте сега! (30-дневна безплатна пътека)
Разменяйте или превключвайте текст в една клетка с помощта на VBA код
Както е показано в примера по-горе, можете също да стартирате следния VBA скрипт, за да разменяте или превключвате текст в една клетка.
1. Натисни Друг + F11 клавиши едновременно, за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули. След това копирайте и поставете долния VBA код в прозореца на модула.
VBA код: Разменяйте или превключвайте текст в рамките на една клетка
Sub res()
Dim xRg As Range, yRg As Range
Dim LastRow As Long, i As Long
Dim strTxt As String, strFs As String
Dim strLs As String, N As Integer
On Error Resume Next
Set xRg = Application.InputBox(Prompt:="Range Selection:", _
Title:="Kutools for excel", Type:=8)
For Each yRg In xRg
On Error Resume Next
strTxt = yRg.Value
Trim (strTxt)
N = InStr(strTxt, " ")
strLs = Left(strTxt, N - 1)
strFs = Right(strTxt, Len(strTxt) - N)
yRg.Value = strFs & " " & strLs
Next
End Sub
3. Натисни F5 ключ за изпълнение на кода. В изскачащите Kutools за Excel диалоговия прозорец, моля, изберете диапазона с данни, които трябва да размените, и след това щракнете върху OK бутон. Вижте екранна снимка:
След това можете да видите, че текстовете в посочените клетки с имена се разменят незабавно.
Забележка: Този код може също да размени две думи в рамките на една клетка, които са разделени с интервал правилно.
Лесно разменяйте или превключвайте текст в рамките на една клетка от Kutools за Excel
Този раздел препоръчва помощната програма за обратен ред на текста на Kutools за Excel, за да ви помогне лесно да разрешите този проблем. Моля, направете следното.
Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.
1. Изберете диапазона, който съдържа текстовете, които трябва да размените, след което щракнете Kutools > Текст > Обратен ред на текста. Вижте екранна снимка:
2. В Обратен текст диалогов прозорец, задайте разделител, на който ще разменяте текстовете въз основа на Сепаратор раздел. В този случай аз избирам Космос опция. И след това щракнете върху OK бутон.
След това можете да видите, че данните в избраните клетки се разменят незабавно в същата клетка чрез определен разделител.
Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.
Демонстрация: Лесно разменяйте или превключвайте текст в рамките на една клетка от Kutools за Excel
Свързана статия:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!