Excel单元格内容批量转入批注

wujunmin

发布于 2021-09-07 17:49:20

1.7K00

代码可运行

文章被收录于专栏：wujunminwujunmin

运行总次数：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 删除

vba

本文分享自 wujunmin 微信公众号，前往查看

如有侵权，请联系 cloudcommunity@tencent.com 删除。

本文参与腾讯云自媒体同步曝光计划，欢迎热爱写作的你一起参与！

vba

登录后参与评论

0 条评论

热度

Excel单元格内容批量转入批注

Excel单元格内容批量转入批注

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐