批量提取批注-批量提取批注内容

今天跟大家分享关于批注的提取与添加 批量处理的方法,相信这个方法能给大家工作提供有益参考 。
需求:
有位小伙伴提示这样的一个工作需求:我有一列数据都加上了批注,内容是日期 。需要对批注的内容也就是日期进行排序 。
解决思路:
在当前带有批注的列前插入一个辅助列 。将批注的内容提取出来对应的填入辅助列中,然后对辅助列进行排序 。

批量提取批注-批量提取批注内容



批注的批量提取方法:
以上图案例为例:将G列单元格的批注内容,提取到F列对应的单元格中 。仅需几行代码即可实现:
按alt f11 打开代码编号器,输入如下图所示代码:
批量提取批注-批量提取批注内容

Sub Comment_ex()
For i = 1 To 10
aa = Range("G" & i).Comment.Text ' 批注所在的G列 。
Range("f" & i) = aa '辅助列F,用于存放批注内容 。
Next
End Sub
按F5运行即可完成提取 。
批量提取批注-批量提取批注内容





写到这 , 小编想到,要是反过来呢?如果你需要把 F列单元格的内容作为G列的批注添加到G列呢?
因为日常工作中如果手动大量的添加批量是很麻烦的事情 。比如我们要将备注列单元格的内容添加到品名列作为批注 。
好的,我们依然以上面的例子做下反向操作,来说明如何批量添加批注 。
批注的批量添加方法:
依然是按alt f11 打开代码编号器,输入如下图所示代码:
批量提取批注-批量提取批注内容

Sub Comment_add()
【批量提取批注-批量提取批注内容】For i = 1 To 10
aa = Range("f" & i) '辅助列F,用于存放批注内容 。
Range("G" & i).AddComment
Range("G" & i).Comment.Text Text:="" & aa ' 将F列的内容添加到G列
Next
End Sub
按F5运行即可完成批注的批量添加 。
批量提取批注-批量提取批注内容

这样我们关于批注的批量提取、批量添加就都跟大家讲明白了 。


今天就跟大家分享到这了,如果大家喜欢我分享的内容请收藏、转发、点赞,关注我的公众号excel应用与开发
请点击并长按下方二维码关注吧!


批量提取批注-批量提取批注内容

相关经验推荐