學(xué)習(xí)教程：恢復(fù)Excel批注框到默認(rèn)位置

方法一：用選擇性粘貼

1.復(fù)制包含批注的區(qū)域，如本例中的A2:D17區(qū)域，將其粘貼到一個(gè)空白位置或新工作表中。

2.復(fù)制粘貼后的區(qū)域。

3.再次選擇原區(qū)域，如本例為A2:D17區(qū)域(或選擇A2單元格)，鼠標(biāo)右擊，選擇“選擇性粘貼”，在彈出的對(duì)話框中選擇“批注”后確定，即可一次將全部批注恢復(fù)到默認(rèn)位置。

其原理是Excel在復(fù)制粘貼批注時(shí)會(huì)自動(dòng)恢復(fù)其默認(rèn)位置。

方法二：用VBA

按Alt+F11，打開VBA編輯器，在代碼窗口中粘貼下面的代碼后運(yùn)行即可。

Sub 恢復(fù)批注到默認(rèn)位置()

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