以下是使用VBA编写的代码,用于统计表格K列的总个数,以及其中大于等于60和大于等于75的数量,并将结果输出到单元格。
Sub 统计表格K列()
Dim 总数 As Long
Dim 大于等于60的数量 As Long
Dim 大于等于75的数量 As Long
Dim i As Long
' 获取表格的行数
Dim 行数 As Long
行数 = Range("K:K").Cells.SpecialCells(xlCellTypeConstants).Count
' 统计总数、大于等于60的数量和