excel表格中的批注如何恢复

方法一：用选择性来粘贴
1.复制包含批注的区域，如本例中的A2:D17区域，将其粘贴到一个空白位置或新工作表中。
2.复制粘贴后的区域。
3.再次选择原区域，如本例为A2:D17区域（或选择A2单元格），鼠标右击，选择“选择性粘贴”，自在弹出的对话框中选择“批注”后确定，即可一次将全部批注恢复zd到默认位置。
其原理是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

方式：
　　1、alt+f11，调出vbe编辑器；
　　2、双击工作表名称，粘贴如下代码：
　　sub
test1()
　　on
error
resume
next
　　for
each
cel
in
selection
　　if
not
cel.comment
is
nothing
then
　　i
=
i
+
1
　　cells(i,
1)
=
cel.comment.text
　　end
if
　　next
　　end
sub
　　3、按下f5，执行代码；
　　4、返回工作表，查看效果（批注已全部提取到a列）