如何在Excel中的一个单元格内交换或切换文本？

如何在Excel中的一个单元格内交换或切换文本？

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

使用公式在一个单元格内交换或切换文本

使用VBA代码在一个单元格内交换或切换文本

通过以下方式轻松交换或切换一个单元格内的文本 Kutools for Excel 使用公式在一个单元格内交换或切换文本

下面的公式可以帮助您在Excel中的一个单元格内交换文本。 请执行以下操作。

1.选择一个空白单元格以找到交换的数据，在“公式栏”中输入公式，然后按 输入 键。 看截图：

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

2.选择结果单元格，然后向下拖动“填充手柄”以获取其余结果，如下图所示。

然后，您可以看到在指定的单元格中名字和姓氏被交换了。

备注：此方法只能在一个单元格内交换由空格分隔的两个文本。

使用VBA代码在一个单元格内交换或切换文本

如上面的示例所示，您还可以运行以下VBA脚本在一个单元格内交换或切换文本。

1。 按 其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块。 然后将下面的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 对话框，请选择您需要交换数据的范围，然后单击 OK 按钮。 看截图：

然后，您可以看到指定名称单元格中的文本立即被交换。

备注：此代码还可以在一个单元格中交换两个单词，这些单词正确地由空格分隔。

通过以下方式轻松交换或切换一个单元格内的文本 Kutools for Excel

本节推荐的反向文本顺序实用程序 Kutools for Excel 帮你轻松解决这个问题。 请按如下方式操作。

1.选择包含您需要交换的文本的范围，然后单击 Kutools > 文本 > 反向文字顺序。 看截图：

2.在 反向文字 对话框中，指定一个分隔符，您将根据该分隔符交换文本 分隔器 部分。 在这种情况下，我选择 太空 选项。 然后点击 OK 按钮。

然后您可以看到所选单元格中的数据被指定的分隔符立即交换到同一单元格中。

演示：通过以下方式轻松交换或切换一个单元格内的文本 Kutools for Excel 相关文章: 如何在Excel中交换或逆转日期和日期？