在Excel中插入批注時(shí),默認(rèn)批注會(huì)顯示在單元格的右上方。有時(shí)由于某種原因,批注框的位置會(huì)發(fā)生改變,當(dāng)工作表中的批注較多,且在“顯示所有批注”的情況下,會(huì)顯得有些雜亂,如下圖。
要恢復(fù)批注的默認(rèn)位置,逐一拖動(dòng)批注框會(huì)十分繁瑣。這時(shí)可用下面的方法來(lái)快速實(shí)現(xià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,打開(kāi)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