如何在Excel中所选单元格的中间添加文本？

网友投稿 616 2023-10-21

如何在Excel中所选单元格的中间添加文本？

假设您有一个由开头字母G和其他数字组成的数据列表，现在您要在整个列表的第一个字母G之后添加另一个字母D。请参见下面显示的屏幕截图。

您如何才能做到这一点？将字母逐个添加到单元格似乎在您的工作中浪费时间。在本文中，我们将向您展示如何使用有效的方法在Excel中选定单元格的中间添加文本。

使用公式在所选单元格的中间添加文本

使用VBA代码在所选单元格的中间添加文本
在所选单元格的中间添加文本 Kutools for Excel

使用公式在所选单元格的中间添加文本

在本节中，我们将为您提供在选定单元格的中间添加文本的公式。请执行以下操作。

1.此方法应在帮助列中完成。选择与原始数据相邻的空白单元格，在这里我选择单元格B2。

2.复制并粘贴公式 = LEFT（A2,1）＆“ D”＆MID（A2,2,100）进入编辑栏，然后按输入键。看截图：

1）。在公式中，数字1表示将在单元格的第一个字符之后添加文本。 2）。数字2和100表示将在新插入的文本之后添加原始单元格的第二个到百分之一的字符。 3）。如果要在第二个字符后添加文本，请在公式中将数字1更改为2，将2更改为3。 4）。字符“ D”是您要添加到单元格中的文本。请根据您的需要进行更改。

3.选择单元格B2，将“填充手柄”向下拖动到要用此公式覆盖的单元格。您可以看到文本被添加到整个列表的单元格中间。

Tips：除了上述公式外，您也可以应用此公式 = REPLACE（A2,2,0，“ D”），（数字2表示您要插入文本的位置，字母D表示您要添加的文本，可以将其更改为所需的文本），然后按Enter键以获取结果。

将文本添加到Excel中所有选定单元格的开头或结尾：

Kutools for Excels 添加文本

实用程序可以将指定的文本快速添加到Excel中所选内容的单元格的开头或结尾。

下载完整功能 30-天自由踪迹 Kutools for Excel 现在！

使用VBA代码在所选单元格的中间添加文本

此外，您可以使用VBA代码在所选单元格的中间添加文本。

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

2。点击插页 > 模块。然后将下面的VBA代码复制并粘贴到代码编辑器中。

VBA代码：在第一个字符之后将文本添加到数据列表中

Sub AddString() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8) For Each Rng In WorkRng Rng.Value = VBA.Left(Rng.Value, 1) & "D" & VBA.Mid(Rng.Value, 2, VBA.Len(Rng.Value) - 1) Next End Sub

Copy

3。按 F5 键运行代码，并在弹出窗口中 Kutools对于Excel 对话框中，选择要添加文本的范围，最后单击 OK 按钮。

现在，将指定的文本添加到所选单元格的第一个字符之后。

备注：在上面的代码中，您将在单元格中的第一个字符之后插入一个特定的值，如果在此脚本的第二个字符之后添加文本，则可以将数字1和2更改为数字2和3 VBA.Left（Rng.Value，1）＆“ D”＆VBA.Mid（Rng.Value，2，VBA.Len（Rng.Value）-1），字母D是您要插入的新文本。

在所选单元格的中间添加文本 Kutools for Excel

我们必须承认上述两种方法对我们来说很不方便。在这里，我将向您展示 添加文本 实用程序 Kutools for Excel，使用此实用程序，您可以轻松地指定列表的中间位置，然后将某些文本同时添加到整个列表的该位置。