
excel表格怎样把批注批量导出来
展开全部
如果都一样的话,不妨先插入一个,然后复制该单元格,选择批注都一样的单元格,点右键,选择性粘贴,选择批注,确定即可。如果不一样那只能用宏来做了,稍微麻烦点。
展开全部
Sub test()
Dim rng As Range
Dim arr(10000, 1)
Set rng = Application.InputBox("请选择要提取的区域", "批注提取", Type:=8)
For Each rg In rng
If Not rg.Comment Is Nothing Then
arr(k, 0) = rg.Address
arr(k, 1) = rg.Comment.Text
k = k + 1
End If
Next
[a1].Resize(k, 2) = arr
End Sub
就是这么简单
Dim rng As Range
Dim arr(10000, 1)
Set rng = Application.InputBox("请选择要提取的区域", "批注提取", Type:=8)
For Each rg In rng
If Not rg.Comment Is Nothing Then
arr(k, 0) = rg.Address
arr(k, 1) = rg.Comment.Text
k = k + 1
End If
Next
[a1].Resize(k, 2) = arr
End Sub
就是这么简单
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个问题很简单,百度一下就知道了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询