发布网友 发布时间:2022-04-23 10:52
共1个回答
热心网友 时间:2022-07-13 05:10
方式:
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列)