假设是A2:A71
那alt+F11
插入,模块
将下面代码复制到右边空白区,存盘退出
重新打开文件。打开时,根据提示操作,最终,选择“启用宏”
然后alt+F8
找到“转移批注”,并执行它,即可
Sub 转移批注()
On Error Resume Next
For i = 2 To 71
Cells(i, 3) = Cells(i, 1).Comment.Text
Next
End Sub
我看这么多高人都浏览过了肯定是没有好的办法 如果时间够的话还是赶紧粘贴吧 省的到时手忙脚乱的,或者问下你们公司IT部的
VBA写个简单的自定义函数就行
Function pz(a As Range)
pz = a.Comment.Text
End Function
批注用起来并不怎么方便,吸取经验教训,还是少用。