在選定區域中進行數量統計的VBA代碼

在選定區域中進行數量統計的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

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。