跳到主要内容

如何在单元格中的文本周围插入方括号?

出于某些目的,有时可能需要在单元格中的文本周围插入方括号以将单元格值括起来。 您很容易在几个单元格中插入方括号,但是,如果有很多单元格需要用方括号包围,那么如何在Excel中快速便捷地处理问题?

在带公式的单元格中的文本周围插入方括号

用VBA代码在单元格中的文本周围插入方括号

使用 Kutools for Excel 在单元格中的文本周围插入括号


下面的简单公式可以帮助您在单元格中的文本周围添加方括号,请执行以下操作:

1。 请输入此公式 =“(”&A2&“)” 例如,除数据C2之外的其他空白单元格,请参见屏幕截图:

doc添加括号1

2。 然后按 输入 键以获取结果,然后选择单元格C2,将填充手柄向下拖动到要应用此公式的单元格,所有单元格值均已插入并带有方括号,请参见屏幕截图:

doc添加括号2


如果您熟悉VBA代码,那么我可以为您创建VBA代码来完成此任务。

1。 按住 ALT + F11 键,然后打开 Microsoft Visual Basic应用程序 窗口。

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

VBA代码:在单元格中的文本周围插入方括号

Sub addbrackets()
'Updateby20150706
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

3。 然后按 F5 执行此代码的键,会弹出一个提示框,提醒您选择要添加方括号的数据范围,请参见屏幕截图:

doc添加括号3

4。 然后点击 OK,所有选中的单元格都立即插入了方括号。


如果您对Excel的其他便捷加载项感兴趣, Kutools for Excel 可能会帮你一个忙 添加文本 功能,您可以在任意位置快速将任何字符添加到单元格内容中。

Kutools for Excel : 带有300多个便捷的Excel加载项,可以在60天内免费试用. 

安装后 Kutools for Excel,请执行以下操作:

1。 选择要插入方括号的数据范围。

2。 点击 库工具 > 文本 > 添加文本,请参见屏幕截图:

doc添加括号4 4

3. 添加文本 对话框中,输入半开括号“(“ 进入 文本 框,然后选择 在第一个字符之前 在下面 职务,然后点击 使用 按钮,请参见屏幕截图:

doc添加括号5 5

4。 在每个选定的文本值之前已插入半角括号,并且对话框仍处于打开状态,请继续输入半角括号“)“ 进入 文本 框,然后选择 最后一个字符之后 选项,然后单击 Ok 按钮,请参见屏幕截图:

doc添加括号6 6

5。 并且方括号已插入到单元格值中。

请注意:

有了这个 添加文本 功能,您也可以将方括号插入单元格内容的任何位置。 例如,我想在单元格的第四个字符之后的文本周围插入方括号,请执行以下操作:

1。 在 添加文本 对话框,请输入半角括号“(“ 进入 文本 框,然后选择 指定 选项,然后输入要插入括号的位置的特定编号,然后单击 使用 按钮以完成此步骤,请参见屏幕截图:

doc添加括号7 7

2。 然后插入半封闭支架“)“进入 文本 框,然后选择 最后一个字符之后 选项,现在,您可以在右侧列表框中预览结果,请参见屏幕截图:

doc添加括号8 8

3。 最后点击 Ok 按钮关闭此对话框,并根据需要在特定位置的文本周围插入了括号。

Tips:如果您检查 跳过非文本单元格 对话框中的选项,添加的文本不会插入非文本单元格中。

单击以了解有关此添加文本功能的更多详细信息。

立即下载和免费试用Excel的Kutools!


Kutools for Excel:具有200多个方便的Excel加载项,可以在60天内免费试用,没有任何限制。 立即下载并免费试用!

最佳办公生产力工具

🤖 Kutools 人工智能助手:基于以下内容彻底改变数据分析: 智能执行   |  生成代码  |  创建自定义公式  |  分析数据并生成图表  |  调用 Kutools 函数...
热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
超级查询: 多条件VLookup    多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 ....
高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 ....
列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ...
特色功能: 网格焦点   |  设计图   |   大方程式酒吧    工作簿和工作表管理器   |  资源库 (自动文本)   |  日期选择器   |  合并工作表   |  加密/解密单元格    按列表发送电子邮件   |  超级筛选   |   特殊过滤器 (过滤粗体/斜体/删除线...)...
前 15 个工具集12 文本 工具 (添加文本, 删除字符,...)   |   50+ 图表 类型 (甘特图,...)   |   40+ 实用 公式 (根据生日计算年龄,...)   |   19 插入 工具 (插入二维码, 从路径插入图片,...)   |   12 转化 工具 (小写金额转大写, 货币兑换,...)   |   7 合并与拆分 工具 (高级组合行, 分裂细胞,...)   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能,体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...

产品描述


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

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Спасибо большое. Я за пару минут сделал то, что планировал на целую ночь!
This comment was minimized by the moderator on the site
Добрый день, у меня данное выражение Rng.Value = "(" & Rng.Value & ")" вставляет в ячейку "-" (минус) перед значением, а не значение в скобках, если же поставить две скобки, все работает ((
This comment was minimized by the moderator on the site
MAN, You make me save 1 day of work with this info. THANKS A LOOOOOT.
GOD BLESS YOU.
Saludos
This comment was minimized by the moderator on the site
Man, I love this site!! I have learned so much about VBA from this website, and I want to thank you for that,
This comment was minimized by the moderator on the site
Brackets inserted around a column of numbers causes Excel to consider the numbers as credits and changes the display from, for example, 123.45 to -123.45.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations