Excel将文本和数字添加到单元格的指定位置

网友投稿 341 2023-12-07

1.添加到每个单元格的开头 1.1 使用公式在单元格开头添加 1.2 通过Flash Fill在单元格开头添加 1.3 使用 VBA 代码在单元格开头添加 2.添加到每个单元格的末尾 2.1 使用公式在单元格末尾添加 2.2 通过 Flash Fill 在单元格末尾添加 2.3 使用 VBA 代码在单元格末尾添加 3.添加到字符串中间 3.1 通过公式在字符串的第n个字符后添加 3.2 在字符串的第 n 个字符后添加 Flash Fill 3.3 使用 VBA 代码在字符串的第 n 个字符后添加 4.添加文字 Kutools for Excel (根据需要将字符添加到特定位置) 4.1 在第一个字符之前或最后一个字符之后添加文本 4.2 在指定位置添加文本 4.3 添加文本实用程序的扩展 5.在第一个特定文本之前或之后添加文本 5.1 在第一个特定文本之前添加文本 5.2 在第一个特定文本之后添加文本 6. 在每个单词之前或之后添加字符 6.1 通过公式在每个单词之前或之后添加字符 6.2 通过查找和替换在每个单词之前或之后添加字符 6.3 通过 VBA 代码在每个单词之前或之后添加字符 7.在字符之间添加文字 7.1 使用自定义函数在每个字符/数字之间添加文本 7.2 用公式在每个数字之间添加空格 8. 在每个单词之间添加字符 9.在文本和数字之间添加字符 9.1 用公式在文本和数字之间添加字符 9.2 使用 Flash Fill 在文本和数字之间添加字符 10.在电话号码/社交号码中添加破折号 10.1 用公式给数字添加破折号 10.2 按单元格格式为数字添加破折号 10.3 通过添加文本为电话号码添加破折号 Kutools for Excel 11.在单元格中添加前导零以固定长度 11.1 使用格式化单元格功能向单元格添加前导零 11.2 用公式向单元格添加前导零 12.给数字添加尾随零以固定长度 13.在文本中添加尾随空格 14.在文本或数字周围添加引号/括号 14.1 在单元格格式周围添加引号/括号 14.2 在公式周围添加引号/括号 14.3 VBA加引号/括号 15.直接在公式结果中添加文本

Excel将文本和数字添加到单元格的指定位置

在 Excel 中,向单元格添加文本或数​​字是一项非常常见的工作。 例如在名称之间添加空格,在单元格中添加前缀或后缀,在社交号码中添加破折号。 在本教程中,它列出了 Excel 中几乎所有的添加场景,并为您提供了相应的方法。

本教程的导航

1.添加到每个单元格的开头

1.1 使用公式在单元格开头添加

1.2 通过Flash Fill在单元格开头添加

1.3 使用 VBA 代码在单元格开头添加

2.添加到每个单元格的末尾

2.1 使用公式在单元格末尾添加

2.2 通过 Flash Fill 在单元格末尾添加

2.3 使用 VBA 代码在单元格末尾添加

3.添加到字符串中间

3.1 通过公式在字符串的第n个字符后添加

3.2 在字符串的第 n 个字符后添加 Flash Fill

3.3 使用 VBA 代码在字符串的第 n 个字符后添加

4.添加文字 Kutools for Excel (根据需要将字符添加到特定位置)

4.1 在第一个字符之前或最后一个字符之后添加文本

4.2 在指定位置添加文本

4.3 添加文本实用程序的扩展

5.在第一个特定文本之前或之后添加文本

5.1 在第一个特定文本之前添加文本

5.2 在第一个特定文本之后添加文本

6. 在每个单词之前或之后添加字符

6.1 通过公式在每个单词之前或之后添加字符

6.2 通过查找和替换在每个单词之前或之后添加字符

6.3 通过 VBA 代码在每个单词之前或之后添加字符

7.在字符之间添加文字

7.1 使用自定义函数在每个字符/数字之间添加文本

7.2 用公式在每个数字之间添加空格

8. 在每个单词之间添加字符

9.在文本和数字之间添加字符

9.1 用公式在文本和数字之间添加字符

9.2 使用 Flash Fill 在文本和数字之间添加字符

10.在电话号码/社交号码中添加破折号

10.1 用公式给数字添加破折号

10.2 按单元格格式为数字添加破折号

10.3 通过添加文本为电话号码添加破折号 Kutools for Excel

11.在单元格中添加前导零以固定长度

11.1 使用格式化单元格功能向单元格添加前导零

11.2 用公式向单元格添加前导零

12.给数字添加尾随零以固定长度

13.在文本中添加尾随空格

14.在文本或数字周围添加引号/括号

14.1 在单元格格式周围添加引号/括号

14.2 在公式周围添加引号/括号

14.3 VBA加引号/括号

15.直接在公式结果中添加文本

备注

在本教程中,我创建了一些示例来解释方法,您可以在使用下面的 VBA 代码或公式时更改您需要的参考,或者您可以直接下载示例来尝试方法。

点击下载示例文件

1.添加到每个单元格的开头

这部分列出了在每个单元格的开头添加字符的不同方法,如下图所示:

1.1 使用公式在单元格开头添加

在这里,您可以选择以下三个公式之一:

Formula1 连接运算符“&”

用 & 字符“&”将多个文本连接在一起。

“文本”&单元格

Formula2 连接函数

CONCATENATE 函数用于将文本连接在一起。

连接(“文本”,单元格)

Formula3 CONCAT 函数

这是一项仅在 Excel 2019、Office 365 和 Excel 在线版中出现的新功能。

连接(“文本”,单元格)

在通用公式中:单元格是对要添加前缀的文本的单元格引用,文本是用于添加到单元格的文本。

使用上面的示例,您可以使用公式栏中的公式,如下所示:

“&”

=$E&B3 or ="苹果"&B3

CONCATENATE功能

=连接($E,B3) or =CONCATENATE("Iphone",B3)

CONCAT功能

=CONCAT($E,B3) or =CONCAT("Iphone",B3)

媒体 输入

键获取结果,然后向下拖动自动填充手柄以将文本添加到范围 B3:B6 的每个单元格。

 注意: 文本应该用双引号引起来,否则公式返回错误值#NAME?。 如果使用单元格引用文本,请记住使用绝对引用,可以按 F4 键将相对引用更改为绝对引用。

1.2 通过Flash Fill在单元格开头添加

如果您在 Excel 2013 或更高版本中,强大的新功能, Flash填充, 可以根据您输入的上述单元格自动填充单元格。

选择第一个原始数据旁边的单元格,手动键入带有前缀文本的第一个数据,如下所示:

然后在下面的单元格中,继续输入带有前缀文本的第二个数据,在输入过程中会显示一个灰色的列表,按 输入

键允许 Flash Fill 自动填充数据。

如果预览列表未生成,请转到主页选项卡,然后单击 > Flash填充 手动运行它。

1.3 使用 VBA 代码在单元格开头添加

如果您熟悉 VBA 代码,这里介绍一个 VBA 代码,用于在区域中每个单元格的开头添加文本。

1. 选择要添加前缀文本的单元格范围,然后按 其他 + F11 启用 Microsoft Visual Basic应用程序 窗口。

2.然后在弹出的窗口中,单击 插页 > 模块

插入一个空白的新模块。

3. 将下面的 VBA 代码复制并粘贴到新模块中。

VBA:在单元格的开头添加

Sub AppendToExistingOnLeft() Dim c As Range For Each c In Selection If c.Value <> "" Then c.Value = "Iphone" & c.Value Next End Sub
Copy
 注意:在代码脚本中, iphone 是您要在所选单元格开头添加的文本,请根据需要进行更改。

4。 按 F5 键或单击 运行 按键  在窗口中激活 VBA 代码。

现在所有选定的单元格都在开头添加了文本“Iphone”。

2.添加到每个单元格的末尾

除了在单元格开头添加文本外,在单元格末尾添加文本也很常见。 在这里,我们以在每个单元格末尾添加单元为例,如下图所示:

2.1 使用公式在单元格末尾添加

在这里,您可以选择以下三个公式之一:

Formula1 连接运算符“&”

用 & 字符“&”将多个文本连接在一起。

单元格&“文本”

Formula2 连接函数

CONCATENATE 函数用于将文本连接在一起。

连接(单元格,“文本”)

Formula3 CONCAT 函数

这是一项仅在 Excel 2019、Office 365 和 Excel 在线版中出现的新功能。

连接(单元格,“文本”)

在通用公式中:单元格是对要添加后缀的文本的单元格引用,文本是用于添加到单元格的文本。

使用上面的示例,您可以使用公式栏中的公式,如下所示:

“&”

=B3&$E or =B3&"公斤"

CONCATENATE功能

=连接(B3,$E) or =连接(B3,“公斤”)

CONCAT功能

=连接(B3,$E) or =CONCAT(B3,“公斤”)

媒体 输入

键获取结果,然后向下拖动自动填充句柄以将文本添加到范围 B3:B6 的每个单元格的末尾。

 注意: 文本应该用双引号引起来,否则公式返回错误值#NAME?。 如果使用单元格引用文本,请记住使用绝对引用,可以按 F4 键将相对引用更改为绝对引用。

2.2 通过 Flash Fill 在单元格末尾添加

如果您在 Excel 2013 或更高版本中,强大的新功能, Flash填充, 可以根据您输入的上述单元格自动填充单元格。

选择第一个原始数据旁边的单元格,手动键入带有后缀文本的第一个数据,如下所示:

然后激活第一个结果下的单元格,点击 Data > Flash填充

,包括活动单元格在内的所有下面的单元格将被自动填充。

2.3 使用 VBA 代码在单元格末尾添加

这是一个 VBA 代码,可以在范围内每个单元格的末尾添加文本。

1. 选择要添加后缀文本的单元格范围,然后按 其他 + F11 启用 Microsoft Visual Basic应用程序 窗口。

2.然后在弹出的窗口中,单击 插页 > 模块

插入一个空白的新模块。

3. 将下面的 VBA 代码复制并粘贴到新模块中。

VBA:在单元格末尾添加

Sub AppendToExistingOnRight() Dim c As Range For Each c In Selection If c.Value <> "" Then c.Value = c.Value & "Kg" Next End Sub
Copy
注意:在代码脚本中, Kg 是您要在所选单元格末尾添加的文本,请根据需要进行更改。 

4。 按 F5 键或单击 运行 按键  在窗口中激活 VBA 代码。

现在文本“Kg”已添加到每个单元格的末尾。

3.添加到字符串中间

对于大多数人来说,在单元格的开头或结尾添加文本很容易,但在单元格的中间添加文本可能有点困难。 例如,如下图所示,在 B3:B7 范围内每个单元格的第二个字符的末尾添加一个分隔符,例如冒号:。

3.1 通过公式在字符串的第n个字符后添加

这里有四个公式供您处理这项工作,选择一个使用:

Formula1 结合 LEFT 和 RIGHT 函数

左(单元格,n)&“文本”&右(单元格,LEN(单元格)-n)

Formula2 COMBINE CONCATENATE(CONCAT)、RIGHT 和 LEN 函数

连接(左(单元格,n),“文本”,右(单元格,LEN(单元格)-n))

Or

连接(左(单元格,n),“文本”,右(单元格,LEN(单元格)-n))

Formula3 替换功能

替换(单元格,n+1,0,“文本”)

在通用公式中:cell 是对要在中间添加文本的文本的单元格引用,text 是用于添加到单元格的文本,n 是定义在文本字符串中的哪个字符之后要添加的数字添加文字。

为了解决上述工作,请使用以下公式:

结合 LEFT 和 RIGHT 功能

=左(B3,2)&“:”&右(B3,LEN(B3)-2) or =左(B3, 2) & $E & 右(B3, LEN(B3) -2)

组合连接(CONCAT)、RIGHT 和 LEN 函数

=连接(左(B3,2),“:”,右(B3,LEN(B3)-2)) or =CONCAT(左(B3,2),“:”,右(B3,LEN(B3)-2))

更换功能

=替换(B3, 2+1, 0, ":") or =替换(B3, 2+1, 0, $E)

媒体 输入

键获得结果,然后向下拖动自动填充手柄以在范围 B3:B7 的每个单元格的第二个字符之后添加文本。

 注意: 文本应该用双引号引起来,否则公式返回错误值#NAME?。 如果使用单元格引用文本,请记住使用绝对引用,可以按 F4 键将相对引用更改为绝对引用。

3.2 在字符串的第 n 个字符后添加 Flash Fill

如果您使用的是 Excel 2013 或更高版本,则 Flash填充, 可以根据您输入的上述单元格自动填充单元格。

选择第一个原始数据旁边的单元格,手动键入第一个数据,在第二个字符后加一个冒号,如下所示:

然后激活第一个结果下的单元格,按 按Ctrl + E 激活键 Flash填充

命令,包括活动单元格在内的所有下面的单元格都已自动填充。

注意:如果您在 MAC 系统中,请按 Command + E 键。 

3.3 使用 VBA 代码在字符串的第 n 个字符后添加

VBA 代码也可以完成这项工作。

1。 按 其他 + F11 启用 Microsoft Visual Basic应用程序 窗口。

2.然后在弹出的窗口中,单击 插页 > 模块

插入一个空白的新模块。

3. 将下面的 VBA 代码复制并粘贴到新模块中。

VBA:添加到单元格中间

Sub AddToMidduleOfString() 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, 2 & ":" & VBA.Mid(Rng.Value, 3, VBA.Len(Rng.Value) - 1) Next End Sub
Copy
注意:在代码脚本中, 2 是数字定义要在其后添加文本的位置, : 是您要添加到的文本, 3 是 2 和您添加的文本长度的总和。 再举一个例子,要在字符串“AB”的第一个字符后添加“and”,脚本应该是 Rng.Value = VBA.Left(Rng.Value, 1) & "" & VBA.Mid(Rng.Value, 4, VBA.Len(Rng.Value) - 1) 

4。 按 F5 键或单击 运行

按键  在窗口中激活 VBA 代码。 弹出一个对话框,用于选择要添加文本的单元格。

5。 点击 OK

. 现在文本“:”已添加到 B19:B23 范围内每个单元格的第二个字符之后。

4.添加文字 Kutools for Excel (根据需要将字符添加到特定位置)

如果你厌倦了公式和 VBA,你可以尝试一个强大而方便的工具, Kutools for Excel,它可以帮助你 添加文本

功能。

此添加文本功能可以:

在第一个字符之前添加文本 在最后一个字符后添加文本 在指定位置添加文本 延期

在大写字母前添加文本

在小写字母前添加文本

在大写/小写字母之前添加文本

在数字字符前添加文本

点击立即获得 30 天免费试用。

选择要添加文本的单元格,然后通过单击应用添加文本 Kutools > 文本 > 添加文本

.

4.1 在第一个字符之前或最后一个字符之后添加文本

添加文本 对话框中,键入要添加到单元格中的文本 文本 文本框,然后检查 在第一个字符之前 ,在 职务

部分。

点击 使用 or Ok

完成添加。

要在最后一个字符之后添加文本,请键入要添加到单元格中的文本 文本 文本框,然后检查 最后一个字符之后 ,在 职务

部分。

点击 使用 or Ok

完成添加。

4.2 在指定位置添加文本

有时,您可能希望将文本添加到单元格的中间,或者将文本添加到单元格的多个位置。 假设在社交号码的第三和第七位之后添加分隔符“-”,如下图所示:

添加文本 对话框,将文本输入 文本 文本框,然后检查 指定 选项,然后使用逗号将位置键入到文本框中,然后单击 Ok or 使用

.

4.3 添加文本实用程序的扩展

除了将文本添加到正常位置(开始、结束和指定位置)之外, 添加文本 实用程序还支持添加文本

大写字母之前 小写字母前 在大写/小写字母之前 在数字字符之前

添加文本 对话框,将文本输入 文本 文本框,然后检查 仅添加到

选项,然后单击下面的下拉菜单,根据需要选择操作。

除了添加文本功能, Kutools for Excel 还有其他 300 多个有用的功能,可以在 Excel 不同的工作中帮您一个忙,立即免费下载。

5.在第一个特定文本之前或之后添加文本

这部分提供了在 Excel 中首次出现的特定文本之前或之后添加文本的公式。

5.1 在第一个特定文本之前添加文本

例如,您想在单元格中的第一个文本“价格”之前添加文本“(销售)”,如下图所示:

在 Excel 中,REPLACE 和 SUBSTITUTE 函数可以解决这个问题。

更换功能

替换(单元格,查找(“查找文本”,单元格),0,“添加文本”)

替代功能

替代(单元格,“查找文本”,“替换文本”,1)

在这种情况下,请使用上述公式:

=REPLACE(B4,FIND("价格",B4),0,"(销售)")

Or

=SUBSTITUTE(B4,"价格","(销售)价格",1)

在这种情况下,公式参数是

单元格:B4,

find_text:价格,

Add_text:(销售),

Replace_text:(销售)价格。

媒体 输入

键获得第一个添加结果,然后将自动填充句柄拖到需要此公式的单元格上。

5.2 在第一个特定文本之后添加文本

例如,您想在单元格中的第一个冒号“:”之后添加货币符号“$”,如下图所示:

在 Excel 中,REPLACE 和 SUBSTITUTE 函数可以解决这个问题。

更换功能

替换(单元格,查找(“查找文本”,单元格),查找文本长度,“替换文本”)

替代功能

替代(单元格,“查找文本”,“替换文本”)

在这种情况下,请使用上述公式:

=替换(B12,查找(“:”,B12),1,“:$”)

Or

=SUBSTITUTE(B12,":",":$")

在这种情况下,公式参数是

单元格:B12,

查找文本: :,

替换文本::$。

查找文本长度:1

媒体 输入

键获得第一个添加结果,然后将自动填充句柄拖到需要此公式的单元格上。

6. 在每个单词之前或之后添加字符

在这部分教程中,它介绍了三种不同的方法(公式、查找和替换、VBA)来帮助您在单元格的每个单词之前或之后添加字符。

在每个单词前添加字符  在每个单词后添加字符

6.1 通过公式在每个单词之前或之后添加字符

可以使用 SUBSTITUTE 函数来解决这个问题,一般公式如下:

在每个单词之前添加

"字符"&SUBSTITUTE(字符串, " "," 字符")

在每个单词后添加

SUBSTITUTE(字符串," ","字符")&"字符"

假设在 B3:B6 列表中的每个单词前添加“+”,请使用以下公式:

="+"&SUBSTITUTE(B3, " "," +")

媒体 输入

键获取第一个结果,然后向下拖动自动填充手柄以获取所有结果。

假设在列表 B11:B14 的每个单词后添加 ($),请使用以下公式:

=SUBSTITUTE(B11," ","($) ")&"($)"

媒体 输入

键获取第一个结果,然后向下拖动自动填充手柄以获取所有结果。

6.2 通过查找和替换在每个单词之前或之后添加字符

如果您想在每个单词之前添加字符(不包括第一个),或者在每个单词之后添加字符(不包括最后一个),如下图所示,Excel 内置 查找和替换 实用程序可以处理这项工作。

在除第一个单词之外的每个单词之前添加

在除最后一个单词之外的每个单词之后添加

1. 选择要在每个单词之前或之后添加字符的单元格,然后按 按Ctrl + H 启用 查找和替换 对话。

2. 输入空格 查找内容 文本框,然后输入带有空格的新字符 更换 文本框,最后点击 “全部替换” 按钮。

操作 总 例如: 在每个单词前添加字符 在空格后添加新字符 在每个单词之前添加(销售) 操作 总 例如: 在每个单词后添加字符 新字符后跟一个空格 在每个单词之后添加 -
6.3 通过 VBA 代码在每个单词之前或之后添加字符

这里提供了两个 VBA 代码,用于在每个单词之前或之后添加字符,请按照以下步骤运行代码。

1。 按 其他 + F11 启用 Microsoft Visual Basic应用程序 窗口。

2.在弹出的窗口中,单击 插页 > 模块

插入一个新的空白模块。

3. 将下面的 VBA 代码复制并粘贴到模块中。

在每个单词之前添加

Sub InsertCharBeforeWord() UpdateByExtendOffice Dim ws As Worksheet Dim xRg As Range Dim xSRg As Range Dim xCell As Range Dim xInStr As String Dim xArr As Variant Dim xValue As String On Error Resume Next Set xSRg = Application.Selection Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8) If xRg Is Nothing Then Exit Sub xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2) If StrPtr(xInStr) = 0 Then Exit Sub Application.ScreenUpdating = False For Each xCell In xRg xArr = Split(xCell.Text, " ") xValue = "" For Each xStr In xArr If Trim(xStr) <> "" Then If xValue = "" Then xValue = xInStr & Trim(xStr) Else xValue = xValue & " " & xInStr & Trim(xStr) End If End If Next xCell.Value = xValue Next Application.ScreenUpdating = True End Sub
Copy

在每个单词后添加

Sub InsertCharAfterWord() UpdateByExtendOffice Dim ws As Worksheet Dim xRg As Range Dim xSRg As Range Dim xCell As Range Dim xInStr As String Dim xArr As Variant Dim xValue As String On Error Resume Next Set xSRg = Application.Selection Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8) If xRg Is Nothing Then Exit Sub xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2) If StrPtr(xInStr) = 0 Then Exit Sub Application.ScreenUpdating = False For Each xCell In xRg xArr = Split(xCell.Text, " ") xValue = "" For Each xStr In xArr If Trim(xStr) <> "" Then If xValue = "" Then xValue = Trim(xStr) & xInStr Else xValue = xValue & " " & Trim(xStr) & xInStr End If End If Next xCell.Value = xValue Next Application.ScreenUpdating = True End Sub
Copy

4。 按 F5 运行代码的键(或者您可以单击 运行 按键   ),弹出一个对话框,要求您选择连续的单元格来工作,单击 OK

.

5. 在第二个弹出对话框中,输入要添加的字符,单击 OK

.

然后字符将被添加到每个单词的前面或末尾。

7.在字符之间添加文字

有时,您可能希望在每个字符之间添加文本。 在这部分,它列出了两种场景,一种是在每个字符之间添加文本,另一种是在每个数字之间添加空格。

7.1 使用自定义函数在每个字符/数字之间添加文本

要在字符串中的每个字符之间添加字符,用户定义函数可以帮助您。

在这种情况下,我们在每个字符之间添加一个空格。

1。 按 其他 + F11 启用 Microsoft Visual Basic应用程序 窗口。

2.在弹出的窗口中,单击 插页 > 模块

插入一个新的空白模块。

3. 将下面的 VBA 代码复制并粘贴到模块中。

在字符之间添加文本

Function AddText(Str As String) As String Dim i As Long For i = 1 To Len(Str) AddText = AddText & Mid(Str, i, 1) & " " Next i AddSpace = Trim(AddSpace) End Function
Copy

4. 保存代码并关闭窗口以返回工作表,然后在要放置添加结果的单元格中键入以下公式。

=添加文本(B3)

B3 是包含要在字符之间添加空格的字符串的单元格。

5。 按 输入

获得结果的关键,将自动填充手柄拖到单元格上以获得您需要的其他结果。

 

注意:

1) 在 VBA 代码中,您可以更改 “” 根据需要更改为其他文本,假设将其更改为 “ - ” 在字符之间添加 -。

2) 代码将在每个字符后添加新文本。 如果不需要,可以使用以下公式删除最后添加的文本。 有关公式的更多详细信息,请访问:

如何从 Exc 中的单元格或字符串中删除第一个或最后 N 个字符埃尔?

左(单元格,LEN(单元格)-text_length)

7.2 用公式在每个数字之间添加空格

如果要在数字字符串的数字之间添加空格,可以使用 TEXT 函数。

注意: 要在其间添加空格的范围的数量需要保持相同的长度,否则可能会导致某些结果不正确。 

假设这里是 B8:B10 范围内的 12 位数字列表,请选择一个将放置结果的单元格,键入以下公式:

=TEXT(B10,"# # # # # # # #")

媒体 输入

键,然后将自动填充手柄拖到其他单元格上。

如果数字的长度为 5,则公式将更改为 =TEXT(B10,"# # # # #").

8. 在每个单词之间添加字符

如果您想在每个单词之间添加字符,假设在名字、中间名、姓氏之间添加空格,如下图所示,您可以使用用户定义函数。

1。 按 其他 + F11 启用 Microsoft Visual Basic应用程序 窗口。

2.在弹出的窗口中,单击 插页 > 模块 插入一个新的空白模块。

3. 将下面的 VBA 代码复制并粘贴到模块中。

在单词之间添加字符

Function AddCharacters(pValue As String) As String UpdatebyExtendoffice20160908 Dim xOut As String xOut = VBA.Left(pValue, 1) For i = 2 To VBA.Len(pValue) xAsc = VBA.Asc(VBA.Mid(pValue, i, 1)) If xAsc >= 65 And xAsc <= 90 Then xOut = xOut & " " & VBA.Mid(pValue, i, 1) Else xOut = xOut & VBA.Mid(pValue, i, 1) End If Next AddCharacters = xOut End Function
Copy

4. 保存代码并关闭窗口以返回工作表,然后在要放置添加结果的单元格中键入以下公式。

=添加字符(B3)

B3 是包含要在单词之间添加空格的字符串的单元格。

5。 按 输入

获得结果的关键,将自动填充手柄拖到单元格上以获得您需要的其他结果。

 注意:在 VBA 代码中,您可以更改 “” 根据需要更改为其他文本,假设将其更改为 “ - ” 在单词之间添加-。
9.在文本和数字之间添加字符

要在文本和数字之间添加特定字符,如下图所示,这里提供了两种方法。

9.1 用公式在文本和数字之间添加字符

如果文本在数字前面,则通用公式为

TRIM(REPLACE(string,MIN(FIND({1,2,3,4,5,6,7,8,9,0},string&"1234567890")),0,"-"))

以上述情况为例,请使用以下公式:

=TRIM(REPLACE(B4,MIN(FIND({1,2,3,4,5,6,7,8,9,0},B4&"1234567890")),0,"-"))

媒体 输入

键获得第一个结果,然后将自动填充手柄拖到其他单元格上以填充此公式。

如果数字在文本的前面,则通用公式为

LEFT(string,SUM(LEN(string)-LEN(SUBSTITUTE(string,{0,1,2,3,4,5,6,7,8,9},""))))&"."&RIGHT (string,LEN(B13)- SUM(LEN(string)-LEN(SUBSTITUTE(string, {0,1,2,3,4,5,6,7,8,9}, ""))))

以上述情况为例,请使用以下公式:

=LEFT(B13,SUM(LEN(B13)-LEN(SUBSTITUTE(B13,{0,1,2,3,4,5,6,7,8,9},""))))&"."&RIGHT(B13,LEN(B13)- SUM(LEN(B13)-LEN(SUBSTITUTE(B13, {0,1,2,3,4,5,6,7,8,9}, ""))))

媒体 输入

键获得第一个结果,然后将自动填充手柄拖到其他单元格上以填充此公式。

9.2 使用 Flash Fill 在文本和数字之间添加字符

如果您使用的是 Excel 2013 或更高版本,则 Flash填充 还可以帮助您在文本和数字之间添加字符。

在原始数据旁边,键入已在文本和数字之间添加字符的新数据。 然后按 Enter 键转到第一个结果的下一个单元格。

然后按 按Ctrl + E

键启用快速填充。

延期

本教程还列出了一些我们在日常生活或工作中可能遇到的添加文本的场景。

10.在电话号码/社交号码中添加破折号

有时,您需要在一系列电话号码或社交号码中添加分隔符,例如破折号,如下图所示。 如果需要添加数百个数字,将尝试手动输入。 在这一部分中,它介绍了三种快速处理这项工作的技巧。

10.1 用公式给数字添加破折号

这里有两个公式可以快速将破折号添加到数字中。 要在单元格 B3 中的第三个和第六个数字后添加破折号,请使用以下公式:

更换功能

=替换(替换(B3,4,0,"-"),8,0,"-")

TEXT功能

=TEXT(B3,"???-???-???")

媒体 输入

键获得第一个结果,然后将自动填充手柄拖到其他单元格上。

注意:

您可以根据需要更改上述公式的参数。 假设添加 “ - ” 在第二、第四和第六位数字之后,您可以使用以下公式:

=替换(替换(替换(B3,3,0,"-"),6,0,"-"),9,0,"-")

=TEXT(B3,"??-??-??-???")

 

10.2 按单元格格式为数字添加破折号

要直接将破折号添加到原始单元格中的数字,您可以使用 单元格格式 功能。

Excel将文本和数字添加到单元格的指定位置

1. 选择要添加破折号的号码,然后按 按Ctrl + 1 启用 单元格格式 对话。

2.在 单元格格式 对话框,在 联系电话 标签,选择 定制 来自 产品分类 部分。

3.然后在右边 Type 部分,类型 ###-###-### 在文本框中,单击 OK

.

现在所选数字已添加破折号。

10.3 通过添加文本为电话号码添加破折号 Kutools for Excel

如果你有 Kutools for Excel 安装在 Excel 中, 添加文本 功能也可以帮您一个忙。

1.选择包含需要添加破折号的数字的单元格,单击 Kutools > 文本 >

添加文字。

2.在 添加文本 对话框中,输入破折号或其他分隔符 文本 文本框,选择 指定

选项,然后在下面的文本框中键入要添加破折号的位置并用逗号分隔它们。

3。 点击 Ok 或申请。 然后所选数字已添加破折号。

免费下载 Add Text 30 天试用版。

11.在单元格中添加前导零以固定长度

假设有一个不同长度的数字列表,您想要添加前导零以使它们具有相同的长度并且看起来整洁,如下面的屏幕截图所示。 这里提供了两种处理工作的方法。

11.1 使用格式化单元格功能向单元格添加前导零

您可以使用 单元格格式 设置自定义格式以通过添加前导零来固定单元格长度的功能。

1. 选择要添加前导零的单元格,然后按 按Ctrl + 1 启用键 单元格格式 对话。

2.在 单元格格式 对话框,在 联系电话 标签,选择 定制 来自 产品分类 部分。

3.然后在右边 Type 部分,类型 0000 进入文本框(要将数字长度固定为 4 位,输入 0000,您可以将其更改为其他长度,例如 5 位,输入 00000),单击 OK

.

然后数字已添加前导零并具有相同的长度。

注意:如果原始数据的长度超过设定的长度,则显示原始数据,不带前导零。

11.2 用公式向单元格添加前导零

如果您不想更改原始数据,可以使用公式将前导零添加到其他位置的数字。

这里有三个功能可以帮助你。

Formula1 TEXT 函数

文本(数字,“00…”)

Formula2 RIGHT 函数

RIGHT("00…"&数字,长度)

Formula3 BASE 函数

BASE(数字,10,长度)

公式中零的数量等于数字的长度。

此处设置 4 位为数字长度,请使用以下公式:

= TEXT(B10,“ 0000”)

=RIGHT("0000"&B10,4)

=基础(B10,10,4)

媒体 输入

键并向下拖动自动填充手柄。

注意

:如果原始数据的长度超过设定的长度,则显示原始数据,不带前导零。

12.给数字添加尾随零以固定长度

如果您想在数字中添加尾随零以制作固定长度,假设在单元格 B3:B7 中的数字中添加尾随零以使其具有 5 位长度,如下图所示,您可以应用公式来处理工作.

REPT 功能

number&REPT("0",length-LEN(number))

在公式中,参数“number”表示要添加尾随零的数字或单元格引用,参数“length”是您想要的固定长度。

请使用以下公式:

=B3&REPT("0",5-LEN(B3))

媒体 输入

键并将自动填充句柄向下拖动到需要此公式的单元格。

13.在文本中添加尾随空格

如果要将工作表中的数据导出或复制到记事本,由于单元格值的长度不同,文本可能放置不整齐,为了使它们看起来整洁,如下图所示,您需要添加尾随空格。

为了解决这项工作,REPT 功能可以帮您一个忙。

左(文本和重复(“”,最大长度),最大长度)

在公式中,参数“text”是要添加尾随空格的文本或单元格引用,参数“max_length”是要制作文本的固定长度,必须大于或等于使用文本的最大长度。

要为单元格 B3:C6 中的文本添加尾随空格,请使用以下公式:

=LEFT(B3 & REPT(" ",10),10)

媒体 输入 键,然后将自动填充句柄拖到需要此公式的所有单元格上。

在这种情况下,由于使用的文本中最长的是 9 个字符,因此我们在这里使用 10。

14.在文本或数字周围添加引号/括号

有时,您需要在单元格中的文本或数字周围添加引号或括号,如下图所示,除了手动输入,这里有两种 Excel 中的方法可以快速解决它。

14.1 在单元格格式周围添加引号/括号

如果要在原始数据中的文本周围添加引号,Excel 中的“设置单元格格式”功能可以为您提供帮助。

1.选择要添加引号的单元格,按 按Ctrl + 1 启用 单元格格式 对话。

2.在 单元格格式 对话框下 联系电话 标签,选择 定制 从清单中 产品分类,然后转到右侧部分键入 “”“ @”“”Type 文本框。 请点击 OK

.

所选单元格中的文本已添加引号。

如果要在文本周围添加括号,请在“设置单元格格式”对话框的“类型”文本框中,使用 (@).

14.2 在公式周围添加引号/括号

公式也可用于为其他单元格中的文本添加引号。

使用 & 连接器

““““&文本&””””

Or

字符(34)&文本&字符(34)

在这种情况下,单元格 B11 中的文本,请使用以下公式:

=""""&B11&""""

Or

=char(34)&B11&char(34)

媒体 输入

键并向下拖动自动填充手柄以填充单元格。

如果要在文本周围添加括号,请使用公式作为 “(“&文本&”)”.

14.3 VBA加引号/括号

如果你需要 VBA 代码来解决这个工作,这里有一个 VBA。

1。 按 其他 + F11 启用 Microsoft Visual Basic应用程序 窗口。

2.然后在弹出的窗口中,单击 插页 > 模块 插入一个空白的新模块。

3. 将下面的 VBA 代码复制并粘贴到新模块中。

VBA:在文本周围添加引号

Sub addquotationmarksorbrackets() UpdatebyExtendOffice 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 = """" & Rng.Value & """" Next End Sub
Copy
 注意:在代码脚本中, """" & Rng.Value & """" 表示在文本周围加“”,如果要在文本周围加括号(),则改为 "(" & Rng.Value & ")".

4。 按 F5 键或单击 运行

按键  在窗口中激活 VBA 代码。 弹出一个对话框,用于选择单元格以添加引号。

5。 点击 OK. 现在已在所选单元格中的文本周围添加了引号。

15.直接在公式结果中添加文本

有时,为了帮助其他用户更好地理解数据,您可能需要在公式结果中添加文本,如下图所示。 要在公式中包含文本,您可以在文本周围使用引号并添加 & 连接符以将文本和公式组合在一起。

案例 1 在公式前添加文本

"今天是 "&TEXT(TODAY(),"dddd, mmmm dd.")

案例2后添加文字 公式

TEXT(NOW(),"HH:MM:SS")&" 是当前时间。"

案例3 在公式的两侧添加文本

“今天卖出了“&data&”公斤。”

更多 Excel 教程:

将多个工作簿/工作表合并为一个本教程,列出了您可能遇到的几乎所有组合场景,并为您提供了相关专业的解决方案。

拆分文本、数字和日期单元格(分成多列)本教程分为三个部分:拆分文本单元格、拆分数字单元格和拆分日期单元格。 每个部分都提供了不同的示例,以帮助您了解在遇到相同问题时如何处理拆分作业。

在Excel中合并多个单元格的内容而不会丢失数据本教程将提取范围缩小到单元格中的特定位置,并收集了不同的方法来帮助在 Excel 中按特定位置从单元格中提取文本或数字。

在 Excel 中比较两列的匹配和差异本文涵盖了您可能遇到的比较两列的大多数可能场景,希望对您有所帮助。

最佳办公效率工具

Kutools for Excel 解决您的大部分问题,并将您的工作效率提高 80%

超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围... 合并单元格/行/列 和保存数据; 拆分单元格内容; 合并重复的行和总和/平均值...防止细胞重复; 比较范围... 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择... 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等... 收藏并快速插入公式,范围,图表和图片; 加密单元 带密码 创建邮件列表 并发送电子邮件... 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换... 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体... 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF... 数据透视表分组依据 周号,周几等 显示未锁定的单元格 用不同的颜色 突出显示具有公式/名称的单元格...
阅读更多 功能齐全的30天免费试用版... 采购... 

Office Tab - 为 Office 带来标签式界面,让您的工作更轻松

在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50%,并减少数百次鼠标单击!
阅读更多 功能齐全的30天免费试用版... 采购... 

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:Excel图表上的动态突出显示数据点
下一篇:Excel批处理查找并替换超链接中的特定文本
相关文章