获取列中填充单元格的数量(VBA)

Sub GetFillCellCount()
    Dim lastRow As Long, lastCol As Long
    Dim count As Long
    Dim cell As Range
    
    ' 定义需要填充的单元格范围
    Set cell = Range("A1:Z1")
    
    ' 获取范围的行数和列数
    lastRow = cell.Rows.Count
    lastCol = cell.Columns.Count
    
    ' 遍历所有单元格，计算满足条件的单元格数量
    For Each cell In Range("A1:Z1")
        count = count + cell.Value
    Next cell
    
    ' 输出结果
    MsgBox "填充单元格的数量为：" & count & vbCrLf & _
            "在范围 A1:Z1 中有 " & lastRow & " 行，" & lastCol & " 列。"
End Sub