在 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.

相关推荐
JarvanMo17 分钟前
Swift 应用在安卓系统上会怎么样?
前端
LinXunFeng30 分钟前
Flutter - 详情页 TabBar 与模块联动?秒了!
前端·flutter·开源
萌萌哒草头将军31 分钟前
Oxc 最新 Transformer Alpha 功能速览! 🚀🚀🚀
前端·javascript·vue.js
Justinc.1 小时前
HTML5新增属性
前端·html·html5
1024小神2 小时前
nextjs项目build导出静态文件
前端·javascript
阿聪_2 小时前
createContext 还是 useSyncExternalStore?一文讲清场景与选型
前端
Linsk2 小时前
当我把前端条件加载做到极致
前端·前端工程化
_辉2 小时前
大模型构建表单与数据结构
前端
祝鹏2 小时前
动态表单生成
前端
luckyJian2 小时前
React深入浅出理解
前端