如何在Excel中计算带注释的单元格数量?
您是否曾经尝试计算工作表中的评论数? 在本文中,我将向您介绍一些快速技巧,以计算工作表中带注释的单元格数。
使用转到特殊功能对包含注释的单元格进行计数
随着 定位条件 Excel中的“统计”功能,您可以先选择所有注释单元格,然后在状态栏中查看计数。
1。 点击 主页 > 查找和选择 > 定位条件,请参见屏幕截图:
2。 在 定位条件 对话框,请检查 评论 选项下 选择 部分,请参见屏幕截图:
3. 然后点击 OK 按钮关闭此对话框,并且活动工作表中包含注释的所有单元格都已被选中。 您可以在状态栏上获得评论的数量。 看截图:
请注意: 如果您有带注释的空白单元格,则不计算空白单元格的注释。
提示: 您也可以按 Ctrl + G 打开快捷方式 转到 对话框,然后单击 Special 显示按钮 定位条件 对话。
使用用户定义的功能计算包含注释的单元格的数量
上面的方法有其自身的缺点,因此,我们可以创建一个用户定义函数来对所有单元格注释(包括空白单元格注释)进行计数。
1。 按住 ALT + F11 键,然后打开 Microsoft Visual Basic for Applications窗口.
2。 点击 插页 > 模块,然后将以下代码粘贴到 模块窗口.
VBA代码:计算带注释的单元格数
Function CountComments(xCell As Range)
'Update 20140924
Application.Volatile
CountComments = xCell.Parent.Comments.Count
End Function
3。 然后保存并关闭代码,返回工作表,请在空白单元格中输入以下公式: = countcomments(A1)(A1 是一个单元格引用,您可以将其更改为任何其他单元格地址),请参见屏幕截图:
4。 然后按 输入 键,您将获得单元格注释的数量。
计算包含带VBA代码注释的单元格数
以下VBA代码还可以帮助您计算所有单元格注释,包括空白单元格注释。
1。 按住 ALT + F11 键,然后打开 Microsoft Visual Basic for Applications窗口.
2。 点击 插页 > 模块,然后将以下代码粘贴到 模块窗口.
VBA代码:计算带注释的单元格数
Sub CountComments()
'Update 20140924
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeComments)
If VBA.Err > 0 Then
MsgBox 0
Else
MsgBox WorkRng.Count
End If
End Sub
3。 然后按 F5 键运行此代码,然后会弹出一个提示框,提醒您选择要计算单元格注释的数据范围。 看截图:
4. 然后点击 OK,您将在选择中获得单元格注释的数量。
相关文章:
最佳办公生产力工具
🤖 | Kutools 人工智能助手:基于以下内容彻底改变数据分析: 智能执行 | 生成代码 | 创建自定义公式 | 分析数据并生成图表 | 调用 Kutools 函数... |
热门特色: 查找、突出显示或识别重复项 | 删除空白行 | 合并列或单元格而不丢失数据 | 不使用公式进行四舍五入 ... | |
超级查询: 多条件VLookup | 多值VLookup | 跨多个工作表的 VLookup | 模糊查询 .... | |
高级下拉列表: 快速创建下拉列表 | 依赖下拉列表 | 多选下拉列表 .... | |
列管理器: 添加特定数量的列 | 移动列 | 切换隐藏列的可见性状态 | 比较范围和列 ... | |
特色功能: 网格焦点 | 设计图 | 大方程式酒吧 | 工作簿和工作表管理器 | 资源库 (自动文本) | 日期选择器 | 合并工作表 | 加密/解密单元格 | 按列表发送电子邮件 | 超级筛选 | 特殊过滤器 (过滤粗体/斜体/删除线...)... | |
前 15 个工具集: 12 文本 工具 (添加文本, 删除字符,...) | 50+ 图表 类型 (甘特图,...) | 40+ 实用 公式 (根据生日计算年龄,...) | 19 插入 工具 (插入二维码, 从路径插入图片,...) | 12 转化 工具 (小写金额转大写, 货币兑换,...) | 7 合并与拆分 工具 (高级组合行, 分裂细胞,...) | ... 和更多 |
使用 Kutools for Excel 增强您的 Excel 技能,体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。 单击此处获取您最需要的功能...
Office Tab 为 Office 带来选项卡式界面,让您的工作更加轻松
- 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
- 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
- 每天将您的工作效率提高50%,并减少数百次鼠标单击!