恢复Excel批注框到默认位置

方法：用VBA

按Alt+F11，打开VBA编辑器，在代码窗口中粘贴下面的代码后运行即可。

Sub 恢复批注到默认位置()

Dim Cmt As Comment

For Each Cmt In ActiveSheet.Comments

With Cmt

.Shape.Top = .Parent.Top - 7.5

.Shape.Left = .Parent.Left + .Parent.Width + 11.25

End With

Next

End Sub