批量修改批注大小

Option Explicit
Sub 标签大小自适应()
Dim i As Long, j As Long
On Error Resume Next
For i = 1 To 1000 '1000行
For j = 1 To 26 'Z列
Cells(i, j).Comment.Shape.TextFrame.AutoSize = True
Next
Next
End Sub