-
让品牌有温度、有情感
专注品牌策划15年
提取批注内容的公式（如何提取批注内容）
发布时间：2023-05-24 01:46:19
稿源：
创意岭 阅读：
61
大家好！今天让创意岭的小编来大家介绍下关于提取批注内容的公式的问题，以下是小编对此问题的归纳整理，让我们一起来看看吧。
开始之前先推荐一个非常厉害的Ai人工智能工具，一键生成原创文章、方案、文案、工作计划、工作报告、论文、代码、作文、做题和对话答疑等等
只需要输入关键词，就能返回你想要的内容，有小程序、在线网页版、PC客户端和批量生成器
问友Ai官网：https://ai.de1919.com。
本文目录:
excel的批注怎么导出
Alt+F11 ----插入---模块 输入如下内容：
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
关闭VBA编辑器，返回到Excel界面。假如要提取A1单元格中的批注，则在其他单元格中输入公式：
=GetComment(A1)
excel中如何提取特定批注的数值？
'自定义公式-按ALT+F11-插入模块-粘贴代码-将表格另存为启用宏的格式
Function 批注对应值(a As Range, b As String)
For Each cel In a
If InStr(cel.Comment.Text, b) Then 批注对应值 = cel.Value
Next
End Function
Excel 请问有读取批注的函数吗
按alt＋f11打开vba编辑界面，然后选择插入模块，接着在模块中输入如下代码：Function提取批注（rgAsRange）Application．VolatileTrue提取批注＝rg．Comment．TextEndFunction，回到Excel界面输入公式＝提取批注（A1），详细步骤：
1、双击表格，如下图所示：
2、打开表格，如下图所示：
3、看到批注内容，如下图所示：
4、按alt＋f11打开vba编辑界面，然后选择插入模块，如下图所示：
5、接着在模块中输入如下代码：Function提取批注（rgAsRange）Application．VolatileTrue提取批注＝rg．Comment．TextEndFunction，如下图所示：
6、回到Excel界面输入公式＝提取批注（A1），如下图所示：
7、然后确定即可得到批注内容，下拉复制函数，如下图所示：
8、最后保存文件，如下图所示：
Excel批量提取批注与删除批注
问题情境
如下样表：
A列很多项目都已批注的形式注明了完成情况，现需要将完成情况的批注内容提取到B列备注中。
韩老师给大家讲一种自定义函数提取批注的方法。
实现过程
1、<Alt+F11>，打开VBA窗口，插入模块：
2、在模块中输入以下代码：
Function pz(rng As Range)
Application.Volatile
On Error GoTo err
pz = rng.Comment.Text
Exit Function
err:
pz = ""
End Function
即可实现自定义函数pz，可以提取批注。
3、保存为启用宏的工作簿，在B2单元格输入公式=pz(A2)，确定，公式向下填充，即可批量提取批注。
保存与使用过程如下动图：
批量删除批注
如果大量数据中，存在不规律分布的批注，可用【查找】-【批注】功能定位到有批注的单元格，右键删除批注。
如下动图：
怎么用公式提取Excel的批注内容？
第1步: 按alt+f11键 ，可以打开visual basic窗口，这里就是编写自定义函数的地方。打开后执行插入 - 模块。模块是存放代码的具体位置第2步：把下面的代码粘到右边的空白位置。
Function 提取批注(rg As Range) '定义函数名和参数
Application.Volatile True '定义该函数为易失性函数
提取批注 = rg.Comment.Text ’提取批注内容
End Function ’结果语句
执行以上两步，自定义函数设置完成，然后在工作表中就可以象其他EXCEL内置函数一样使用自定义函数了。
=提取批注（D7）
以上就是关于提取批注内容的公式相关问题的回答。希望能帮到你，如有更多相关问题，您也可以联系我们的客服进行咨询，客服也会为您讲解更多精彩的知识和内容。
推荐阅读：
赣公网安备 50019002502384号
