如何提取批注内容到单元格

小字

消费金额	批注内容
1435	备注:VIP 赣M79001
976.5	？
149	？
176.5	？
42	？

如题，消费金额每个都有手工录入的内容，里面的大致内容“备注:VIP 赣M79001”如此，每次都是手工复制粘贴，希望有方法能自动把批注内容提取至单元格，希望讲解得详细一点，谢谢

gj98122

http://club.excelhome.net/viewthread.php?tid=202144参考
有些问题论坛中都有涉及的，最好问前多搜索下~

[ 本帖最后由 gj98122 于 2011-5-25 16:34 编辑 ]

ctp_119

Sub tt()
Dim cell As Range
For Each cell In [a2:a6]
    cell.Offset(, 1) = cell.Comment.Text
Next
End Sub

神奇菜鸟

强大,刚知道还有自定义函数.

ctp_119

原帖由 神奇菜鸟 于 2011-5-25 16:45 发表
强大,刚知道还有自定义函数.

自定义函数改写下即可。
functin pzhu(cell as range)
pzhu = cell.Comment.Text
end function

hqmm0114

ctp_119 发表于 2011-5-25 16:37
Sub tt()
Dim cell As Range
For Each cell In [a2:a6]

你这个代码不能通用诶，我完全复制到我需要提取批注的工作薄中用不了，通用代码是什么？

ctp_119

hqmm0114 发表于 2013-5-9 14:25
你这个代码不能通用诶，我完全复制到我需要提取批注的工作薄中用不了，通用代码是什么？

自定义函数改写下即可。
functin pzhu(cell as range)
pzhu = cell.Comment.Text
end function


用这个自定义函数即可。就通用了

hqmm0114

ctp_119 发表于 2013-5-9 14:40
自定义函数改写下即可。
functin pzhu(cell as range)
pzhu = cell.Comment.Text

我改写了，你的意思就是改写成这样的代码：
Sub tt()
Dim functin pzhu
For Each cell In [a2:a6]
    cell.Offset(, 1) = pzhu
Next
End Sub

ctp_119

hqmm0114 发表于 2013-5-9 15:12
我改写了，你的意思就是改写成这样的代码：
Sub tt()
Dim functin pzhu

不是的，是：
function pzhu(cell as range)
pzhu = cell.Comment.Text
end function
这是一个自定义函数，单元格作为参数。
开始写错了单词。function

hqmm0114

ctp_119 发表于 2013-5-9 16:05
不是的，是：
function pzhu(cell as range)
pzhu = cell.Comment.Text

再请教下，这个怎么用？？难道不是开宏复制进去吗？我还没用过自定义函数呢