Как изменить порядок текста в ячейке Excel?

Предположим, у вас есть таблица с длинным списком имен, отформатированных как «Фамилия Имя», и теперь вам нужно изменить порядок всех имен на «Имя, Фамилия». Как этого добиться? В этой статье представлены три метода для решения проблемы.

Изменение порядка текста в ячейке с помощью формулы
Изменение порядка текста в ячейке с помощью кода VBA
Быстро измените порядок текста в ячейке с помощью Kutools для Excel

Изменение порядка текста в ячейке с помощью формулы

Следующая формула поможет вам поменять местами фамилию и имя в ячейке Excel. Пожалуйста, действуйте следующим образом.

1. Выберите пустую ячейку для вывода измененного текста, введите следующую формулу в нее, а затем нажмите клавишу Enter.

=TRIM(MID(b2;SEARCH(" ";b2)+1;250))&" "&LEFT(b2;SEARCH(" ";b2)-1)

Примечание: в формуле B2 — это ячейка, содержащая имя, которое вы хотите изменить. Пожалуйста, измените её в зависимости от ваших потребностей.

2. Продолжайте выбирать ячейку с результатом, перетаскивайте маркер заполнения вниз, чтобы перевернуть все имена, как показано на скриншоте ниже.

Изменение порядка текста в ячейке с помощью кода VBA

Кроме того, вы можете применить приведенный ниже код VBA, чтобы перевернуть все имена в списке одновременно в Excel. Пожалуйста, действуйте следующим образом.

1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications нажмите Insert > Module. Затем скопируйте приведенный ниже код VBA в окно Module.

Код 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 Sub

3. Затем появится диалоговое окно Kutools для Excel, пожалуйста, выберите список имен, который вы хотите изменить, и нажмите кнопку OK. См. скриншот:

Затем все записи «Фамилия Имя» в выбранном списке будут перевернуты немедленно.

Быстро измените порядок текста в ячейке с помощью Kutools для Excel

В этом разделе будет представлена утилита Reverse Text Order из Kutools для Excel, которая поможет вам изменить порядок текста в ячейке.

1. Выберите список имен, которые вы хотите перевернуть «Фамилия Имя», затем нажмите Kutools > Text > Reverse Text Order. См. скриншот:

2. В диалоговом окне Reverse Text выберите опцию Space и нажмите кнопку OK. См. скриншот:

Затем все имена в выбранном списке будут изменены сразу.

Связанные статьи:

• Как поменять местами или обратить день и месяц даты в Excel?
• Как поменять или переключить текст местами внутри одной ячейки в Excel?