问题和目标：将带批注的数据

Public Function Pz(x As Range) Pz = x.Cells.Comment.Text End Function 然后，在EXCEL中输入 =Pz(A1) 就返回A1的批注内容了

打开VB编辑器（wps收费，office可用Alt+F11打开VB编辑界面）

插入模块

将代码

Public Function Pz(x As Range) Pz = x.Cells.Comment.Text End Function

粘贴到框体中

代码大意为新建一个函数叫Pz，他需要一个参数

他返回这个参数的批注内容

点击保存，然后关闭该界面回到wps

输入函数=pz(A2)，即可提取批注到单元格