Excel 如何将最后一个单词移到下一个相邻单元格

学习如何使用Excel的强大功能，无论您是初学者还是有经验的用户，都可以极大地提高您的生产力和数据组织能力。在本文中，我们将为您逐步介绍一个有效的技巧，将一个单元格中的最后一个单词移动到其旁边的单元格。

在本课程中，我们将假设您熟悉Microsoft Excel及其基本原理。但是如果您刚刚开始使用该软件，不用担心！为了帮助您清楚地理解每个步骤，我们将提供清晰的指导和示例。

将最后一个单词移到下一个相邻单元格

在这里，我们首先创建一个VBA模块，然后运行它来完成任务。让我们看看如何在Excel中将最后一个单词移到下一个相邻单元格的简单过程。

步骤1

考虑一个Excel表格，其中有一列字符串。

首先，右键单击表格名称，选择“查看代码”以打开VBA应用程序。

右键单击 > 查看代码

步骤2

然后点击“插入”并选择“模块”，然后将下面的代码复制到文本框中。

插入 > 模块 > 复制

代码

Sub splitlastword()
   Dim xCell As Range
   Dim xStr As String
   Dim xAddress As String
   Dim xRg As Range
   On Error Resume Next
   xAddress = ActiveWindow.RangeSelection.Address
   Set xRg = Application.InputBox("Please selec the text cells:", "Move Last Cell", xAddress, , , , , 8)
   If xRg Is Nothing Then Exit Sub
   If xRg.Columns.Count > 1 Then
      MsgBox "Only one column in the seleted range", vbInformation, "Move Last Cell"
      Exit Sub
   End If
   For Each xCell In xRg
      xStr = Trim(xCell.Value)
      xCell.Offset(0, 1) = Mid(xStr, InStrRev(xStr, " "))
      xCell.Value = Left(xStr, InStrRev(xStr, " "))
   Next
End Sub

Excel 如何将最后一个单词移到下一个相邻单元格