如何将excel表格内容转成批注
展开全部
'鼠标在操作的工作表标签例如sheet上右键 --“查看代码”,调出VBA窗口,插入一个模块,把下面代码复制进去
Sub 转为批注()
On Error Resume Next
Set s = Range("A1:A20") '读取批注的范围
m = 1
For Each t In s
't.Value = t.Comment.Text
'Cells(m, 2).AddComment.Text = t.Text
Cells(m, 2).Comment.Text Text:=t.Value
m = m + 1
Next
End Sub
'回到EXCEL窗口,按“工具-宏-宏”,或直接按快捷键AlT+F8,在对话框选“转为批注”宏执行即可。
结果在B列产生批注
Sub 转为批注()
On Error Resume Next
Set s = Range("A1:A20") '读取批注的范围
m = 1
For Each t In s
't.Value = t.Comment.Text
'Cells(m, 2).AddComment.Text = t.Text
Cells(m, 2).Comment.Text Text:=t.Value
m = m + 1
Next
End Sub
'回到EXCEL窗口,按“工具-宏-宏”,或直接按快捷键AlT+F8,在对话框选“转为批注”宏执行即可。
结果在B列产生批注
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询