提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

如何将每x个字符中的特定字符添加/插入到单元格中?

假设,我有一个文本字符串列表,我希望在每四个字符后面插入破折号或其他分隔符,以获得以下屏幕截图结果。 插入特定字符所需的单元太多,是否有任何快速方法在Excel中每隔四个字符插入破折号?

用VBA代码将每x个字符中的某个字符插入单元格

用Kutools for Excel将每x个字符中的某个字符插入单元格

doc插入每个x字符1


在文本字符串的某个位置之前/之后添加特定字符:

Kutools for Excel添加文本 实用程序可以帮助您在所有单元格之前或之后添加特定的字符或字母,同时它还可以将字符插入到文本字符串的某个位置中。

doc插入每个x字符11

Kutools for Excel:比200方便的Excel加载项,可以在60天免费试用。 下载并免费试用现在!


用VBA代码将每x个字符中的某个字符插入单元格


您可以应用以下VBA代码在每四个字符后面插入一个特定字符到单元格中,请按照以下步骤操作:

1。 按住 ALT + F11 在Excel中的键,它打开 Microsoft Visual Basic for Applications 窗口。

2。 点击 插页 > 模块,并将以下代码粘贴到 模块 窗口。

VBA代码:将每x个字符中的某个字符插入到单元格中

Sub InsertCharacter()
'Updateby20150813
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
    xValue = Rng.Value
    outValue = ""
    For index = 1 To VBA.Len(xValue)
        If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
            outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
        Else
            outValue = outValue + VBA.Mid(xValue, index, 1)
        End If
    Next
    OutRng.Cells(xNum, 1).Value = outValue
    xNum = xNum + 1
Next
End Sub

3。 然后按 F5 键来运行此代码,并会弹出提示框提醒您选择要在文本字符串中插入某个字符的数据范围,请参阅屏幕截图:

doc插入每个x字符2

4。 并点击 OK,在下面的提示框中,请输入你想每次插入某个角色的号码,看截图:

doc插入每个x字符3

5。 继续点击 OK,并在随后的提示框中输入要添加到文本中的特定字符,请参阅截图:

doc插入每个x字符4

6。 点击 OK 按钮,然后在提示框中选择一个要在其中输出结果的单元格,请参阅截图:

doc插入每个x字符5

7。 最后点击 OK,每四个字符中的特定字符已插入到每个文本字符串中,请参见截图:

doc插入每个x字符6


用Kutools for Excel将每x个字符中的某个字符插入单元格

上面的代码对于大多数Excel初学者来说可能有些困难,在这里,我可以介绍一个方便的工具 - Kutools for Excel,其 添加文本 功能,您可以快速添加特定的文本或字符之前,之后或某些位置的单元格值。

Kutools for Excel : 与超过300方便的Excel加载项,在60天免费试用没有限制.

如果你已经安装 Kutools for Excel请按照以下步骤进行:

1。 选择要插入特定字符的数据范围。

2。 然后点击 Kutools > 文本 > 添加文本,看截图:

doc插入每个x字符7 7

3。 在 添加文本 对话框中,指定要插入的字符 文本 框,然后选择 从位置指定 部分,在文本框中输入要插入角色的位置,同时可以在右侧窗格中预览结果,请参见屏幕截图:

doc插入每个x字符8

提示建议:在这里,我在文本框中输入4,8,12 指定 它表示在文本字符串的4th,8th和12th个字符之后插入特定文本。

4. 然后点击 Ok or 申请 按钮,指定的字符已被插入到特定位置的单元格值中。

doc插入每个x字符9  2 doc插入每个x字符10

点击了解有关此添加文本实用程序的更多详情。

立即下载并免费试用Kutools for Excel!


演示:使用Kutools for Excel将每x个字符中的某个字符插入单元格

Kutools for Excel:比200方便的Excel加载项,可以在60天免费试用。 下载并免费试用现在!


Kutools for Excel - 最佳办公生产力工具提高80%的生产力

  • 重用: 快速插入 复杂的公式,图表 以及你以前用过的任何东西; 加密单元格 密码; 创建邮件列表 并发送电子邮件...
  • 超级方程式酒吧 (轻松编辑多行文字和公式); 阅读布局 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不丢失数据; 分裂细胞含量; 组合重复的行/列...防止重复的细胞; 比较范围...
  • 选择复制或唯一 行; 选择空行 (所有细胞都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择......
  • 精确复制 多个单元格而不更改公式参考; 自动创建参考 多张表; 插入项目符号,复选框等等......
  • 提取文本,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级过滤器 (将过滤方案保存并应用到其他工作表); 高级排序 按月/周/日,频率等; 特殊过滤器 用粗体,斜体......
  • 结合工作簿和工作表; 根据键列合并表; 将数据拆分为多个表格; 批量转换xls,xlsx和PDF...
  • 超过300强大的功能。 支持Office / Excel 2007-2019和365。 支持所有语言。 在您的企业或组织中轻松部署。 全功能60天免费试用。
kte tab 201905

Office选项卡为Office提供选项卡式界面,使您的工作更轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,Publisher,Access,Visio和Project。
  • 在同一窗口的新选项卡中打开并创建多个文档,而不是在新窗口中。
  • 通过50%提高您的工作效率,每天为您减少数百次鼠标点击!
官方底部
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    John · 1 months ago
    buenas noches
    necesito que me coloque el caracter cada 6, 7, 8 de un solo clic como le modifico para poder colocar mas criterios