在EXCEL表中,如何将一整列批注的内容复制到另外的单元格中(不是批注的形式)
2个回答
展开全部
选择这一列,复制,再选定需要复制列,右键,选择性粘贴,选“批注”
---
补充:
Sub test()
Dim rng As Range
For Each rng In Range("A:A") '按实际需要更改列号
If Not rng.Comment Is Nothing Then rng.Offset(0, 1) = rng.Comment.Text
Next
End Sub
工具-宏-VB编辑器,插入-模块,将下面的程序复制.再执行.
---
补充:
Sub test()
Dim rng As Range
For Each rng In Range("A:A") '按实际需要更改列号
If Not rng.Comment Is Nothing Then rng.Offset(0, 1) = rng.Comment.Text
Next
End Sub
工具-宏-VB编辑器,插入-模块,将下面的程序复制.再执行.
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询