前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
圈层
工具
发布
首页
学习
活动
专区
圈层
工具
MCP广场
社区首页 >专栏 >Excel单元格内容批量转入批注

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

作者头像
wujunmin
发布于 2021-09-07 09:49:20
发布于 2021-09-07 09:49:20
1.7K00
代码可运行
举报
文章被收录于专栏:wujunminwujunmin
运行总次数:0
代码可运行

2017年最后一个工作日下午,同桌扔来一个Excel工作簿,类似如下,需要将右侧单元格中的内容批量写入左侧单元格的批注中。

写了几行VBA可以快速实现,效果如下

稍微美化了下批注形状为iPhone圆

VBA代码如下,如有需要的读者可以试试。

代码语言:javascript
代码运行次数:0
运行
AI代码解释
复制
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 删除

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

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

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

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档
本文部分代码块支持一键运行,欢迎体验
本文部分代码块支持一键运行,欢迎体验