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

学习如何使用 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

步骤 3

然后单击 F5 运行模块。然后选择单元格范围并单击“确定”。

F5 > 选择单元格 > 确定。

这就是如何在 Excel 中将最后一个单词移动到下一个相邻单元格的方法。

结论

在本教程中，我们使用了一个简单的示例来演示如何在 Excel 中将最后一个单词移动到下一个相邻单元格，以突出显示特定数据集。

更新于: 2023-08-24

284 次浏览

开启您的 职业生涯

通过完成课程获得认证

开始学习
广告