excel表格中所有隐藏批注都自动拉大，怎么把这些拉大的批注统一缩小， 批注太多，我没办法一个一个调整

Question

如题

Answer 1

根据有效数据的范围按以下步骤进行修改:
1.在需要修改的SHEET表下单击右键,选"查看代码"
2.在Microsoft Visual Basic 窗口内输入:
Option ExplicitSub 标签大小自适应()Dim i As Long, j As LongOn Error Resume NextFor i = 1 To 1000 '1000行For j = 1 To 26 'Z列Cells(i, j).Comment.Shape.TextFrame.AutoSize = TrueNextNextEnd Sub
3.回到需要修改的SHEET表,点"工具"--"宏"--"宏(M)"--"执行"

追问

我球球：柒肆伍陆贰壹壹捌叁，你加我一下 你讲的我看不懂

追答

1.在需要修改的SHEET表下单击右键,选"查看代码"

2.在Microsoft Visual Basic 窗口内输入:
Option ExplicitSub 标签大小自适应()Dim i As Long, j As LongOn Error Resume NextFor i = 1 To 1000 '1000行For j = 1 To 26 'Z列Cells(i, j).Comment.Shape.TextFrame.AutoSize = TrueNextNextEnd Sub

回到需要修改的SHEET表,点"工具"--"宏"--"宏(M)"--"执行"

