Sub test()
Dim i
With ActiveSheet
For i = 1 To .Comments.Count
.Comments(i).Text VBA.Replace(.Comments(i).Text, "【", vbCrLf & "【")
.Comments(i).Shape.TextFrame.AutoSize = True '调整批注大小
Next
End With
End Sub 自动查找并添加批注怎么做2.rar(24.7 KB, 下载次数: 34)
Sub test()
Dim i
With ActiveSheet
For i = 1 To .Comments.Count
.Comments(i).Text VBA.Replace(.Comments(i).Text, "【", vbCrLf & "【")
.Comments(i).Shape.TextFrame.AutoSize = True '调整批注大小
Next
End With
End Sub 自动查找并添加批注怎么做2.rar(24.7 KB, 下载次数: 34)