
VBA
VBASub CountNonEmptyCells()Dim ws As WorksheetSet ws = ActiveSheetDim count As Integercount = ws.UsedRange.Rows.CountIf count > 0 Then MsgBox "非空单元格的个数为:" & countElse MsgBox "当前表格外部有数据,无法进行统计!"End IfEnd Sub在上面的代码中,先定义一个名为ws的变量指向当前工作表,然后通过UsedRange属性获取到工作表中所有非空单元格所对应的数据区域,在最后判断该数据区域是否为空(即有没有数据),并输出相关信息。如果发现当前表格外部有数据,则无法进行统计。以上是一种常见的情况,在实际应用中可能还需要根据具体需求进行调整和修改。希望对大家有所帮助!Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号