您的位置: 首页 > EXCEL技巧 > ExcelVBA >

在选定区域中进行数量统计的VBA代码

时间:2013-12-10 整理:docExcel.net

如果在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

用VBA统计选定的单元格数量 问题:用VBA统计选定的单元格数量
回答:如果我们在Excel中选择了一些单元格,可以通过下面的VBA代码来统计所选单元格的数量。例如,如果需要统计表格中某种类型的单元格数量,可以这样操作: 1.单击菜单“编辑→定位”,在弹出的“定位”对话框中单击“定位条...
Excel之快捷键 问题:Excel之快捷键
回答:...rl+Page Up 移动到事情簿中的上一作表。 Shift+Ctrl+Page Down 选定当前事情表和下一作表。若要打消选定多作表,请按 Ctrl+Page Down,可能,若要选定其他事情表,请按 Ctrl+Page Up。 在选定区域内移动 Enter 在选定区域内从上往下移...
选定A2:B7单元格区域,制作“三维簇状柱形图” 问题:选定A2:B7单元格区域,制作“三维簇状柱形图”, 并插入到sheet1工作表中。
回答:选择区域-----插入----图表
在excel中下拉公式时怎么保存公式中选定的区域不 问题:在excel中下拉公式时怎么保存公式中选定区域不变
回答:加上锁定符号$, 也就是绝对引用,比如你的公式要引用A1:B5单元格,那么你输入公式就$A$1,$B$5,这样你下拉公式,区域就不变了
如何用键盘选定excel中两个单元格之间的区域 问题:如何用键盘选定excel中两个单元格之间的区域
回答:前言这个可用“Shift 配合方向中键实现。
Excel制作图表教程 问题:Excel制作图表教程
回答:...说明Excel 2003建设和编辑图表的。 1 建设图表 第一步,选定所需的数据后,单击“”·“图表”。 提示:图1选定的是,B2-F2和B5-F5两个不相邻的单位格区域选定是,先选定个中的一个区域(如,B5-F5)后,...
相关推荐: