发布网友 发布时间:2022-03-17 23:31
我来回答
共1个回答
热心网友 时间:2022-03-18 01:01
用宏很快解决。同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:Sub test()Dim cMt As CommentFor Each cMt In ActiveSheet.CommentscMt.Shape.Height = 20 '如果还是不够,再自己试着改大这个数NextEnd Sub在此界面直接按F5运行此宏,完成。