Excel情报局
生产搬运分享Excel基础技能
OFFICE知识文艺青年用1%的Excel基础搞定99%的日常工作
做一个有文艺范的Excel公众号
Excel是门手艺 玩转需要勇气
表哥带你玩转办公室
有温度的公众号
听歌阅读
2020年7月7日
周二好!
生活皆成长,成长即人生。懂得皆放下,放下即重生。
批量提取批注。
如下图所示:A列数据是带有批注的数据。
右击工作表,点击查看代码,自动弹出VBA窗口,选择插入,点击插入模块。 在插入的模块当中,复制粘贴如下代码,目的是用来自定义公式。 Function GetComment (Rng As Range) Dim t As String If Rng.Comment Is Nothing Then '判断rng是否包含批注 t = "" Else t = Rng.Comment.Text End If GetComment = t End Function 点击关闭VBA窗口,回到Excel表格中。 在任意位置输入自定义公式: =GetComment(A2) 下拉填充公式,即可批量提取出A列数据的批注。 批量删除批注。如下图所示:A列数据是带有批注的数据。
右击工作表,点击查看代码,自动弹出VBA窗口,复制粘贴如下代码,点击运行按钮, 弹出提示框:选择删除批注的单元格范围 ,我们选择范围区域:A列区域,可以鼠标勾选区域或者手动输入都可以。点击确定, 我们发现,A列带批注的数据中的批注已经不见了。 Sub DelComment2() Dim Rng As Range Set Rng = Application.InputBox("请选择删除批注的单元格范围。", Type:=8) Rng.ClearComments End Sub 批量添加批注。 如下图所示,如何批量给A列数据添加D列对应的批注。即把D列对应的单元格里面的数据当做批注信息,给A列数据添加为批注。 右击工作表,点击查看代码,自动弹出VBA窗口,复制粘贴如下代码,点击运行按钮。 Sub AddComment() Dim rng As Range, rngEach As Range Set rng = Application.InputBox("请选择增加批注的单元格范围。", Type:=8) Set rng = Intersect(rng.Parent.UsedRange, rng) 'Intersect避免选择整列时,造成无谓循环以致代码效率低下。 If rng Is Nothing Then Exit Sub For Each rngEach In rng If rngEach.Comment Is Nothing Then rngEach.AddComment '如果单元格没有批注……则增加批注 rngEach.Comment.Text Text:=rngEach.Value & "" '输入批注内容 Next End Sub 点击运行按钮后, 自动弹出提示框:请选择增加批注的单元格范围。 我们选择范围为:C2:C7 区域。用鼠标选择范围即可,也可以手动输入。最后点击确定,关闭VBA窗口。自动回到Excel表格中,我们发现C列数据已经形成了C列数据的批注。最后我们将A2:A7区域数据,复制,选择性粘贴为数值至C2:C7单元格,同时将A1表头复制粘贴至C1。就完成了批量添加批注的效果。
不要随意对任何一个Excel知识点定义为无用论,因为只有合适的问题在合适的模型运用合适的Excel技巧,才能实现其最大作用。所以你的知识储备很重要!相互尊重,抱团成长。
隔三差五学个Excel小知识,忘记一天工作的烦恼,只要坚持,最后可能不会得到最好的结果,但一定不会收获最坏的结果。赖床舒服,但可能迟到;熬夜很爽,但伤身体。自律或许并不容易,但你越懒惰越放纵自己,就越可能错过美好的人和事。如果生活注定充满艰辛,那就学着做拯救自己的那个英雄。趁年轻不妥协,向前奔跑!从今天开始改变,对平庸生活奋力回击。
点击关注Excel情报局微信视频号
点击加入微信圈子获取更多知识点
公众号消息小窗回复“微信群”加入微信答疑群
往期知识点精彩链接点击阅读!
【 Office2003~2019简体中文版下载 】 【 WPS表格2019版开启VBA宏功能 】 【 全网文字任你免费复制的小技巧 】 【 快速提取Excel表格的所有图片 】 【 微信朋友圈空白说说这样操作 】 【 Excel电话号码导入手机通讯录 】 【批量合并工作簿下所有工作表 】 【材料出入库电子表格模板分享】 【30套炫卡通风格PPT模板 分享】 【40套酷梦幻风格PPT模板分享 】 【 备考公务员之公文写作大全 】 【 Excel财务账模板超级实用 】 【再不怕 忘记电脑开机密码 】 【 电脑微信多开的方法 】 【 Excel制作公章方法 】 【 电脑重装系统方法 】 【 Excel卸载小工具 】 【 工作簿合并工具 】