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

非对象不可以set

计算表格非空行

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