Excel是许多职场人士常用的烦恼之源，学习相关技巧需耗费大量时间。简道云作为一款办公神器，能很好地替代Excel。它是一个在线表单和数据管理工具，支持PC端和手机微信浏览器操作。除此之外，简道云还能辅助企业进行流程审批、财务报销、人事管理等业务管理，满足不同需求。
如果在Excel中选择了一个或多个区域，用下面的VBA代码可以统计当前工作表所选区域中单元格（或行、列）的数量：
1. 统计选定区域中的单元格数量：
Sub CountCellsInSelection()Dim CellsNum As IntegerCellsNum = Selection.CountMsgBox "所选区域中的单元格数量为： " & CellsNumEnd Sub
2.统计选定区 excel在选定区域中进行数量统计的VBA代码
如果在Excel中选择了一个或多个区域，用下面的VBA代码可以统计当前工作表所选区域中单元格（或行、列）的数量：
1. 统计选定区域中的单元格数量：
Sub CountCellsInSelection()Dim CellsNum As IntegerCellsNum = Selection.CountMsgBox "所选区域中的单元格数量为： " & CellsNumEnd Sub
2.统计选定区域中所包含的行数，如果选择了多个区域，则统计行数之和。
Sub CountRowsInSelection()Dim RowsNum As IntegerFor i = 1 To Selection.Areas.CountRowsNum = RowsNum + Selection.Areas(i).Rows.CountNext iMsgBox "所选区域中的行数为： " & RowsNumEnd Sub
3.统计选定区域中所包含的列数，如果选择了多个区域，则统计列数之和。
Sub CountColumnsInSelection()Dim ColumnsNum As IntegerFor i = 1 To Selection.Areas.CountColumnsNum = ColumnsNum + Selection.Areas(i).Columns.CountNext iMsgBox "所选区域中的列数为： " & ColumnsNumEnd Sub
4.统计选定区域中的非空单元格数量：
Sub CountNonBlankInSelection()Dim NonBlankNum As IntegerNonBlankNum = Application.CountA(Selection)MsgBox "所选区域中包含非空单元格有" & NonBlankNum & "个。"End Sub
5.统计选定区域中有填充色的单元格数量：
Sub CountColorCellsInSelection()Dim ColorCellsNum As IntegerDim rCell As RangeFor Each rCell In SelectionIf rCell.Interior.ColorIndex > 0 ThenColorCellsNum = ColorCellsNum + 1End IfNext rCellMsgBox "所选区域中填充了颜色的单元格有" & ColorCellsNum & "个。"End Sub
6.统计选定区域中包含公式的单元格数量：
Sub CountFormulaInSelection()Dim FormulaNum As IntegerDim rCell As RangeFor Each rCell In SelectionIf rCell.HasFormula Or rCell.HasArray ThenFormulaNum = FormulaNum + 1End IfNext rCellMsgBox "所选区域中包含公式的单元格有" & FormulaNum & "个。"End Sub
