批量修改批註大小

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