在选定区域中进行数量统计的VBA代码
时间:2022-10-23 12:39:41
如果在Excel中选择了一个或多个区域,用下面的VBA代码可以统计当前工作表所选区域中单元格(或行、列)的数量:
1. 统计选定区域中的单元格数量:
Sub CountCellsInSelection()
Dim CellsNum As Integer
CellsNum = Selection.Count
MsgBox "所选区域中的单元格数量为: " & CellsNum
End Sub
2.统计选定区域中所包含的行数,如果选择了多个区域,则统计行数之和。
Sub CountRowsInSelection()
Dim RowsNum As Integer
For i = 1 To Selection.Areas.Count
RowsNum = RowsNum + Selection.Areas(i).Rows.Count
Next i
MsgBox "所选区域中的行数为: " & RowsNum
End Sub
3.统计选定区域中所包含的列数,如果选择了多个区域,则统计列数之和。
Sub CountColumnsInSelection()
Dim ColumnsNum As Integer
For i = 1 To Selection.Areas.Count
ColumnsNum = ColumnsNum + Selection.Areas(i).Columns.Count
Next i
MsgBox "所选区域中的列数为: " & ColumnsNum
End Sub
4.统计选定区域中的非空单元格数量:
Sub CountNonBlankInSelection()
Dim NonBlankNum As Integer
NonBlankNum = Application.CountA(Selection)
MsgBox "所选区域中包含非空单元格有" & NonBlankNum & "个。"
End Sub
5.统计选定区域中有填充色的单元格数量:
Sub CountColorCellsInSelection()
Dim ColorCellsNum As Integer
Dim rCell As Range
For Each rCell In Selection
If rCell.Interior.ColorIndex > 0 Then
ColorCellsNum = ColorCellsNum + 1
End If
Next rCell
MsgBox "所选区域中填充了颜色的单元格有" & ColorCellsNum & "个。"
End Sub
6.统计选定区域中包含公式的单元格数量:
Sub CountFormulaInSelection()
Dim FormulaNum As Integer
Dim rCell As Range
For Each rCell In Selection
If rCell.HasFormula Or rCell.HasArray Then
FormulaNum = FormulaNum + 1
End If
Next rCell
MsgBox "所选区域中包含公式的单元格有" & FormulaNum & "个。"
End Sub


猜你喜欢
四种在Word方框内打钩的方法

Win10alt+tab切窗口慢怎么办?联想电脑Alt+Tab切换窗口很卡解决方法

2019年12月显卡天梯图:桌面级显卡性能天梯图最新版

如何在wps表格中合并居中
让你的PPT文字排版也能高大上的几种简单的方法
win2003 server 定时自动重启命令
苹果电脑怎么切换输入法?Mac切换输入法方法

如何提取PPT母版背景图?提取PPT母版背景图教程

FL Studio创建音乐之添加乐器教程分享?

VSCode打开在线服务设置的技巧教程

联想小新 Pro 14锐龙版笔记本安装win10系统教程

WPS如何显示花样线条

删除Mac废纸篓中的单一文件和文件夹的方法图文介绍

windows10无法完成更新正在撤销更改怎么办

word2003中单元格内文字的行距怎么调整

Win7电脑密码忘了怎么解除 ?五种方法教给你!

怎么使用优酷会员观影券?

win10系统隐藏桌面右下角的U盘显示图标的方法?
