在 Excel 使用macro 常用函数 使用行数 招标专家系统————仙盟创梦IDE

非对象不可以set

计算表格非空行

Function 仙盟创梦macro_招标系统_专家库非空行数(表 As String) As Long
    Dim 仙盟工作表_专家库 As Worksheet
    Dim 非空行计数 As Long
    Dim dataRange As Range
    
    Set 仙盟工作表_专家库 = ThisWorkbook.Sheets(表)
    
    ' 假设数据在A列到E列
    On Error Resume Next
    Set dataRange = 仙盟工作表_专家库.Range("A:F")
    On Error GoTo 0
    
    If Not dataRange Is Nothing Then
        ' 统计至少有一个非空单元格的行数
        非空行计数 = Evaluate("SUMPRODUCT(--(MMULT(--(dataRange<>""""),ROW(dataRange)^0)>0))")
        MsgBox "包含数据的行数: " & 非空行计数
    Else
        MsgBox "无法定义数据范围!", vbExclamation
    End If
    仙盟创梦macro_招标系统_专家库非空行数 = 非空行计数
End Function

代码

 字符串转 数字

获取 使用过的表格

Function 仙盟创梦macro_招标系统_专家库非空行数(表 As Worksheet) As Long
仙盟创梦macro_招标系统_专家库非空行数 = 表.UsedRange.rows.Count '- 1
' 仙盟创梦macro_招标系统_专家库非空行数 = 1000
End Function

阿雪技术观

让我们积极投身于技术共享的浪潮中，不仅仅是作为受益者，更要成为贡献者。无论是分享自己的代码、撰写技术博客，还是参与开源项目的维护和改进，每一个小小的举动都可能成为推动技术进步的巨大力量

Embrace open source and sharing, witness the miracle of technological progress, and enjoy the happy times of humanity! Let's actively join the wave of technology sharing. Not only as beneficiaries, but also as contributors. Whether sharing our own code, writing technical blogs, or participating in the maintenance and improvement of open source projects, every small action may become a huge force driving technological progress.