Как переставить текст в ячейке Excel?
Представьте, что у вас есть таблица с длинным списком имён, отформатированных как «Фамилия Имя», и вам нужно изменить порядок на «Имя, Фамилия». Как этого добиться? В этой статье представлены три эффективных способа решения этой задачи.
Перестановка текста в ячейке с помощью формулы
Перестановка текста в ячейке с помощью кода VBA
Быстрая перестановка текста в ячейке с помощью Kutools для Excel
Перестановка текста в ячейке с помощью формулы
Приведённая ниже формула поможет вам легко поменять местами фамилию и имя в ячейке Excel. Выполните следующие действия.
1. Выберите пустую ячейку для размещения переставленного текста, введите в неё приведённую ниже формулу и нажмите клавишу Enter.
=TRIM(MID(b2,SEARCH(« »,b2)+1,250))&« »&LEFT(b2,SEARCH(« »,b2)-1)
Примечание: в формуле B2 — это ячейка с именем, которое нужно переставить. Замените её на нужную вам ячейку.
2. Не снимая выделения с ячейки с результатом, перетащите маркер заполнения вниз, чтобы изменить порядок всех имён, как показано на скриншоте ниже.
Легко переставляйте текст в ячейке Excel:
Утилита Перевернуть текст из Kutools для Excel позволяет легко менять местами части текста внутри одной ячейки по заданному разделителю в Excel. См. скриншот ниже:
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Перестановка текста в ячейке с помощью кода VBA
Кроме того, вы можете воспользоваться приведённым ниже кодом VBA, чтобы мгновенно поменять местами все имена в списке Excel. Выполните следующие действия.
1. Нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В окне Microsoft Visual Basic for Applications нажмите Вставка > Модуль, затем скопируйте приведённый ниже код VBA в окно модуля.
Код VBA: Перестановка текста в ячейке
Sub RearrangeText()
'Updated by Extendoffice 20180503
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 Sub3. Затем появится диалоговое окно Kutools для Excel. Пожалуйста, выберите список имен, которые хотите переставить, и нажмите кнопку ОК. См. скриншот:
После этого все записи в формате «Фамилия Имя» в выбранном списке будут немедленно обновлены.
Быстрая перестановка текста в ячейке с помощью Kutools для Excel
В этом разделе представлена утилита Изменить порядок символов из Kutools для Excel, которая поможет вам переставить текст в ячейке.
1. Выделите список имен, в котором нужно поменять местами «Фамилия Имя», затем нажмите Kutools > Текст > Изменить порядок символов. См. скриншот:
2. В диалоговом окне Перевернуть текст выберите параметр Пробел и нажмите кнопку ОК. См. скриншот:
После этого все имена в выбранном списке будут одновременно переставлены.
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
См. также:
- Как изменить порядок дня и месяца в дате или поменять их местами в Excel?
- Как поменять местами или переставить текст внутри одной ячейки в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек