怎么在wps或excel编写函数，完成以下问题：求大侠赐教！！！

您好，很高兴为您解答！
1.按Alt+F11打开VBA编辑器，单击菜单“插入→模块”，在“工程”窗口中会看到Excel插入了一个名称为“模块1”的模块。
2.在右侧“模块1”的代码窗口中输入下列代码：
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 0
End Function
3.关闭VBA编辑器，返回到Excel界面。假如要提取A10单元格中的批注，则在其他单元格中输入公式：
=GetComment(A10)
回车后即可得到A10单元格中的批注内容，注意本自定义函数仅提取批注内容，而不包含批注作者。由于将自定义函数标记为易失性函数，如果A10单元格中的批注被修改，按F9键或当任意单元格进行计算时即可得到修改后的批注内容。
如果您有论文排版、模版下载、论文遇到难题，可以访问：http://docer.wps.cn/zt/lunwen?from=qyzd
更多WPS办公软件教程，请访问：http://bbs.wps.cn，祝你使用愉快，谢谢
如有疑问，请点击我的头像提问。祝您生活愉快！

全选工作表后按住ctrl单击c1