如何在 Excel 的單一儲存格內交換或切換文字？

在許多情況下，您可能需要出於某些目的在單一儲存格內交換文字。例如，一個儲存格包含名字 Smith John，您需要交換儲存格內的文字以將名字更改為 John Smith。本文列出了一些解決此問題的方法。

使用公式在單一儲存格內交換或切換文字



使用 VBA 程式碼在單一儲存格內交換或切換文字



使用 Kutools for Excel 輕鬆交換或切換單一儲存格內的文字>

使用公式在單一儲存格內交換或切換文字

以下公式可以幫助您在 Excel 的單一儲存格內交換文字。請按照以下步驟操作：

1. 選擇一個空白儲存格來放置交換後的數據，在編輯欄(F)中輸入公式，然後按下 Enter 鍵。請參見截圖：

=RIGHT(A2,LEN(A2)-FIND(" ",A2)) & " " & LEFT(A2,FIND(" ",A2)-1)

2. 選擇結果儲存格，然後向下拖動填充柄以獲取其餘結果，如下面的截圖所示。

然後您可以看到指定儲存格中的名字和姓氏已經交換了。

備註：此方法只能交換由空格分隔的單一儲存格內的兩個文字。

使用 VBA 程式碼在單一儲存格內交換或切換文字

如上例所示，您也可以運行以下 VBA 腳本來交換或切換單一儲存格內的文字。

1. 同時按下 Alt + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，點擊 插入 > 模組。然後將以下 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 for Excel 對話框中，請選擇需要交換數據的範圍，然後點擊 確定 按鈕。請參見截圖：

然後您可以立即看到指定名稱儲存格中的文字已被交換。

備註：此程式碼也能正確交換由空格分隔的單一儲存格內的兩個詞語。

使用 Kutools for Excel 輕鬆交換或切換單一儲存格內的文字

本節推薦使用 Kutools for Excel 的反轉文字順序功能來幫助您輕鬆解決這個問題。請按照以下步驟操作：

1. 選擇包含需要交換文字的範圍，然後點擊 Kutools > 文字 > 反轉文字順序。請參見截圖：

2. 在反轉文字對話框中，指定您要基於交換文字的分隔符號。在此情況下，我選擇空格選項。然後點擊 確定 按鈕。

然後您可以看到所選儲存格中的數據已根據指定的分隔符立即在同一儲存格內交換。

相關文章：

• 如何在 Excel 中交換或反轉日期的日和月？