如何在Excel中重新排列单元格中的文本？

假设你有一个电子表格，其中包含格式为“姓 名”的长名单，现在你需要将所有姓名重新排列为“名, 姓”。该如何实现呢？本文介绍了三种解决该问题的方法。

使用公式重新排列单元格中的文本
使用VBA代码重新排列单元格中的文本
使用Kutools for 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 窗口中，点击 插入 > 模块。然后将以下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 Sub

3. 然后会弹出一个 Kutools for Excel 对话框，请选择要重新排列的名称列表，然后单击 确定 按钮。见截图：

所选列表中的所有“姓 名”条目都会立即被翻转。

使用Kutools for Excel快速重新排列单元格中的文本

本节将介绍 Kutools for Excel 的反转文本顺序工具，帮助您重新排列单元格中的文本。

1. 选择要翻转“姓 名”的名称列表，然后点击 Kutools > 文本 > 反转文本顺序。见截图：

2. 在反转文本对话框中，选择空格选项，然后单击 确定 按钮。见截图：

所选列表中的所有名称都会立即重新排列。

相关文章：

• 如何在Excel中交换或反转日期的天和月？
• 如何在Excel中交换或切换单元格内的文本？