Note: The other languages of the website are Google-translated. Back to English

如何在Excel中的多个单元格中添加文本字符串?

如果我们需要在多个单元格中添加一些特定的文本或文本字符串,那么将其复制并粘贴到每个单元格中将是一项艰巨且耗时的工作。 以下方法可以帮助我们方便快捷地在多个单元格中添加特定文本。


箭头蓝色右气泡 使用VBA将特定文本添加到Excel中的多个单元格

使用VBA可以简化我们的工作,并在多个单元格中添加特定文本,而无需复制和粘贴。

步骤1: 选择要在其中添加特定文本的单元格。

步骤2:按住 ALT + F11 键,并打开“ Microsoft Visual Basic应用程序”窗口。

步骤3:点击 插页 >> 模块,然后将以下宏粘贴到“模块窗口”中。

子Add2Formula()
' 添加文字

对于每个c In选择
c。激活
ActiveCell.FormulaR1C1 =“测试-”&ActiveCell.Formula
下一个c

END SUB

步骤4:按下 F5 运行此宏的键。

备注:此宏只能添加 文字- 在每个单元格文本的前面。 如果要添加其他文本或字符串,请替换 文字– 与您要添加的特定文本。


箭头蓝色右气泡 使用Kutools for Excel将特定文本添加到Excel中的多个单元格

对于Microsoft Excel的普通用户,我们可能不熟悉VBA。 或者, Kutools for Excel的“添加文本”工具可以帮助我们快速,轻松地在多个单元格中添加特定的文本或字符串。

Kutools for Excel:具有300多个方便的Excel加载项,可以在30天内免费试用,没有任何限制。 立即获取

步骤1:选择要在其中添加特定文本的单元格。

步骤2:点击 库工具 > 文字工具 > 添加文字…。 看截图:

步骤3: 添加文本 对话框,在文本部分中输入特定的文本和字符。

第4步:检查您要在其中添加特定文本的位置 职务 部分。 (注意:如果您想在指定位置插入文字,请检查 指定 并指定位置。)请参见屏幕截图:

步骤5:点击 OK or 使用.

最低价的 添加文本 Kutools for Excel工具支持我们在原始单元格文本之前或之后添加任何特定的文本和字符。 此外,我们可以在原始单元格文本之间添加特定的文本。 无论您设置哪种设置,都可以在“预览”部分中预览单元格的更改。


相关文章:


最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

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

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (4)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
私有子 CommandButton1_Click()
在错误转到错误处理程序时:
将 objRange1 调暗为范围
将 wk 调暗为工作簿

'设置范围


设置 objRange1 = Range("A22:A51")


objRange1.TextToColumns , 目的地:=Sheet1.Range("Z1"), _
数据类型:=xlDelimited,_
标签:=假,_
分号:=假,_
逗号:=假,_
空格:=假,_
其他:=真,_
其他字符:="|"
变暗为字符串
将 rn1 作为字符串变暗
将 rn2 作为字符串变暗
将代表调暗为字符串
将 res 作为字符串
rep = "你想复制值吗?"
res = MsgBox(rep, vbQuestion + vbYesNo, "???")
如果 res = vbYes 那么

rn = InputBox("输入范围以复制电路 ID")
Sheets("Sheet1").Range("AH1:AH10").Cut Destination:=Sheets("Sheet2").Range(rn)
MsgBox ("Circuit Id 已成功粘贴")
rn1 = InputBox("输入范围复制订单参考")
Sheets("Sheet1").Range("AK1:AK10").Cut Destination:=Sheets("Sheet2").Range(rn1)
MsgBox ("订单参考已成功粘贴")
rn2 = InputBox("输入范围复制库存名称")
Sheets("Sheet1").Range("AG1:AG10").Cut Destination:=Sheets("Sheet2").Range(rn2)
MsgBox ("库存已成功粘贴")
Sheets("sheet1").Range("Z1:AM10").ClearContents
表格(“sheet2”)。激活
其他
MsgBox ("谢谢")
结束如果
错误处理程序:
MsgBox ("你点击了取消的 bitton")
Sheet1.激活
END SUB


私有子 CommandButton2_Click()
Sheet1.Range("A10:A32").ClearContents
END SUB







它正在工作,但我必须在一个单元格中添加文本。 请帮我
该评论由网站上的主持人最小化
我想在之前和之后添加一个字符。 请帮助..给我发邮件 cpk.adm@gmail.com
该评论由网站上的主持人最小化
如果我需要向文本添加值,例如:“文本”值 E12“文本”值 E12“文本”值 E12 是否可能? 需要做SEO
该评论由网站上的主持人最小化
如何添加多个单元格并与一个单元格进行比较,使得一个单元格与值的比较是动态变化的。 例如列的总和并且您在列中添加值然后总和是动态变化的。

先感谢您。
这里还没有评论

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护