运用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中的结果：
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024