如何将excel中批注导至单元格上?

发布网友发布时间：2022-04-23 13:46

共2个回答

热心网友时间：2022-05-02 16:03

在excel中按alt+f11组合键，调出vba窗口，插入一个模块，把下面代码复制进去。
sub
导出批注()
on
error
resume
next
set
s
=
range("a1:c10")
'读取批注的范围
for
each
t
in
s
t.value
=
t.comment.text
next
end
sub
回到excel窗口，按“工具－宏－宏”，在对话框选“导出批注”宏执行即可。
说明：执行后，如果某格中有批注，就把批注内容放入该单元格中，单元格中的原内容会被删除。
注意执行前做好数据备份

热心网友时间：2022-05-02 17:21

假如你的数据都在A列
ALT+F11调出
VBA编辑器，选择这个表，插入--模块
然后双击
插入后的模块1，复制以下代码进去~~
Function
PZ(arr
As
Range)
Application.Volatile
True
TEX
=
arr.Comment.Text
I
=
InStr(1,
TEX,
Chr(10))
TEX
=
VBA.Mid$(TEX,
I
+
1,
VBA.Len(TEX)
-
1)
PZ
=
TEX
End
Function
关闭VBE窗口。
B1输入
=PZ(A1)
即可~~
公式下拉~~OK~~~