Excel单元格内容批量转入批注
Excel单元格内容批量转入批注
wujunmin
发布于 2021-09-07 09:49:20
发布于 2021-09-07 09:49:20
代码可运行
运行总次数：0
代码可运行
2017年最后一个工作日下午，同桌扔来一个Excel工作簿，类似如下，需要将右侧单元格中的内容批量写入左侧单元格的批注中。
写了几行VBA可以快速实现，效果如下
稍微美化了下批注形状为iPhone圆
VBA代码如下，如有需要的读者可以试试。
Sub 批注()
Dim cell As Range
For Each cell In Selection
cell.AddComment
cell.Comment.Text Text:=cell.Offset(0, 1).Value
With cell.Comment
.Visible = True
.Shape.Select True
Selection.ShapeRange.AutoShapeType = msoShapeRoundedRectangle
.Visible = False
End With
Next cell
End Sub以下是示例文件，宏已内置，可直接使用
本文参与 腾讯云自媒体同步曝光计划，分享自微信公众号。
原始发表：2018-01-09，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
腾讯云开发者
