如何在Excel的一个单元格内交换或调整文本位置？

在许多情况下，你可能需要出于某些目的在一个单元格内交换文本的位置。例如，一个单元格包含名字“Smith John”，你需要交换单元格内的文本以将名字更改为“John Smith”。本文列出了一些解决此问题的方法。

通过使用公式在一个单元格内交换或调整文本位置


通过使用VBA代码在一个单元格内交换或调整文本位置


使用Kutools for Excel轻松在一个单元格内交换或调整文本位置>

通过使用公式在一个单元格内交换或调整文本位置

以下公式可以帮助你在Excel的一个单元格内交换文本位置。请按照以下步骤操作：

1. 选择一个空白单元格来放置交换后的数据，在编辑栏中输入公式，然后按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中交换或反转日期的天和月？