发布网友
共2个回答
热心网友
运用VBA批量提取sheet1中所有批注,并在sheet2中罗列处理:
1,原始数据:
2,程序:
Sub pizhu()
Dim i As Integer, comm As Comment
For Each comm In ActiveSheet.Comments
i = i + 1
Sheets(2).Cells(i, 1) = comm.Parent.Comment.Text
Next
End Sub
3,运行后sheet2中的结果:
热心网友
Subtest()Fori=1ToActiveSheet.Comments.Counta=ActiveSheet.Comments(i).Textb=InStr(1,a,":")ActiveSheet.Comments(i).Parent.Next.Value=Mid(a,b+1,10)NextEndSub你要先下载一个vbforwps
追问对不起哦,我看不懂,能说的明白一点吗。比如我的一列批注是sheet1 A列里面,想全部提取出来以word形式单独放到单元格里面显示出来,请问下该怎么做?追答你要先在http://pan.baidu.com/share/link?shareid=3226326770&uk=34239957这个地址里面下载一个vba插件,安装完成后,打开wps就会发现你的wps多了一个菜单叫做”开发工具“,打开”开发工具“》vb编辑器》插入》模块》把代码粘贴进去》运行
返回到表格里面去看,批注就提出来了。