如何在 Excel 中添加字符（使用公式、快速填充和 VBA）

如何在 Excel 中添加字符（使用公式、快速填充和 VBA）

在现代办公环境中，Excel作为一款功能强大的电子表格软件，被广泛应用于数据处理、分析和管理。掌握Excel的基本操作技巧，尤其是字符添加等基础功能，对于提高工作效率至关重要。本文将详细介绍5种在Excel中添加字符的方法，包括使用公式、快速填充和VBA，帮助读者快速掌握这一实用技能。

在Excel中添加字符的5种简单方法

我们在包含名称的现有单元格中拥有数据。我们希望在每个单元格的开头放置一个前缀，在末尾放置一个后缀，或者在公式前面放置一些文本。

方法一 – 使用“&”添加字符

步骤：

• 单击要显示转换名称的列的第一个单元格 (C5)。
• 键入等号 (=)，输入或粘贴要用作开头的文本，例如“Professor ”，然后插入与号 (&)。
• 仍在公式栏中，选择包含名字的单元格 (B5)。
• 这是结果公式。

="Professor "& B5

• 按 Enter 键应用公式。

• 将填充柄拖动到单元格C12。

方法2 – 使用CONCATENATE函数添加字符

案例 2.1 – 连接以将字符添加到所有单元格的开头

步骤：

• 单击要显示转换名称的列的第一个单元格 (F5)。
• 输入等号**(=)**以输入公式。
• 输入函数 CONCATENATE 并从建议的公式中选择它。
• 在双引号中键入要附加的文本（例如“教授”），后跟逗号 (,)。
• 选择包含名字 (E5) 的单元格。
• 放置一个右括号。
• 在我们的示例中，公式应为：

=CONCATENATE("Professor ", E5)

• 按输入。
• 向下拖动填充柄。

案例 2.2 – 连接以将字符添加到所有单元格的末尾

步骤：

• 单击要显示转换名称的列的第一个单元格（在我们的示例中为 C5）。
• 键入等号 (=) 以启动公式。
• 输入函数 CONCATENATE。
• 选择包含名字的单元格（在我们的示例中为 B5）。
• 插入逗号，后跟双引号中的文本 (“ (USA) ”)。
• 放置一个右括号。
• 在我们的示例中，公式应为：

公式文本

=CONCATENATE(B5, " (USA)")

• 按输入。
• 向下拖动填充柄。

方法3 – 使用快速填充在Excel中添加字符

快速填充在Excel2013 及更高版本中可用。

案例 3.1 – 快速填充以将文本添加到所有单元格的开头

步骤：

• 单击要显示转换名称的列的第一个单元格 (F5)。
• 手动输入您要添加的文本（例如“教授”），然后输入列表中的第一个值。
• 按输入。

• C5单元格的一角有一个加号。
• 右键单击并按住填充柄，然后向下拖动。

• 释放右键单击并选择快速填充。

• 这会将相同的模式复制到列中的其余单元格。

案例 3.2 – 快速填充以将文本添加到所有单元格的末尾

步骤：

• 单击要显示转换后的名称的列的第一个单元格 (C5)。
• 输入您需要的结果文本。
• 按输入。

• 再次单击单元格C5。
• 在数据选项卡下，单击快速填充按钮。

• 这会将相同的模式复制到列中的其余单元格。

在某些情况下，您可能还需要输入第二个值，Excel 才能正确拾取模式。

方法 4 – 在Excel中在特定第 N 个字符之前或之后添加字符

步骤：

• 如果要在单元格B5 中的单词 James 和 (USA) 之间的第 5 个字符后添加连字符 (-)，请输入以下公式：

=CONCATENATE(LEFT(B5, 5), "-", RIGHT(B5, LEN(B5) -5))

• 按Enter键查看结果。
• 您必须单独修改每个单元格的公式以分隔单词，因为公式无论如何都会将连字符作为第六个字符。例如，使用 C11 的填充句柄会产生“Danie-l(USA)”，因为“Daniel”有六个字符长。

方法5 – VBA向所有单元格添加指定字符

案例 5.1 – 在每个单元格开头添加特定字符的 VBA

步骤：

• 选择您获得结果的范围 (E5:E12)。
• 按Alt+F11，Excel 将打开 Microsoft Visual Basic for Applications 窗口。
• 单击插入，然后单击模块。
• 将以下 VBA 代码粘贴到模块窗口中。

Sub AppendToExistingOnLeft()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = "Professor " & c.Value
Next
End Sub

• 按F5键运行该宏。 C5:C12 中的单元格将附加文本“教授”，结果显示在 E5:E12 中。

案例 5.2 – 在每个单元格末尾添加特定文本的 VBA

步骤：

• 将值从 B5:B12 复制到 C5:C12。
• 选择范围 (C5:C12)。
• 按Alt+F11打开 Microsoft Visual Basic for Applications 窗口。
• 单击插入，然后单击模块。
• 粘贴以下 VBA 代码。

Sub AppendToExistingOnRight()
Dim c as range
For each c in Selection
If c.value <> "" Then c.value = c.value & "(USA)"
Next
End Sub

• 按F5键运行宏。