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
以下是示例文件,宏已内置,可直接使用
扫码关注腾讯云开发者
领取腾讯云代金券
Copyright © 2013 - 2025 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号:粤B2-20090059 深公网安备号 44030502008569
腾讯云计算(北京)有限责任公司 京ICP证150476号 | 京ICP备11018762号 | 京公网安备号11010802020287
Copyright © 2013 - 2025 Tencent Cloud.
All Rights Reserved. 腾讯云 版权所有