如何在 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 中交換或切換單一儲存格內的文字？