感谢邀请，方法如下：
1、提取A列备注数据到B列：
2、按ATL+F11，打开VBE编辑器，单击插入——模块，复制粘贴下面的代码到右边的编辑窗口
3、复制代码Function GetComment(rCell As Range)
Application.Volatile '将自定义函数标记为易失性函数
Dim Cmt As String
On Error Resume Next
Cmt = rCell.Comment.Text
GetComment = Right(Cmt, Len(Cmt) - InStr(1, Cmt,":", vbTextCompare))
On Error GoTo 0End Function
然后再B2单元格内输入函数
=GetComment(A2)
提取完毕的结果
有不明白的地方也可以关注我的微信公众号：EXCEL超人，谢谢~~
