Foxtable(狐表)用户栏目专家坐堂 → [求助]非空单元格计数


  共有2282人关注过本帖平板打印复制链接

主题:[求助]非空单元格计数

帅哥哟,离线,有人找我吗?
天一生水
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1137 积分:11230 威望:0 精华:0 注册:2017/9/26 16:30:00
[求助]非空单元格计数  发帖心情 Post By:2020/6/23 9:04:00 [只看该作者]

老师好!
下面的代码把空单元格也计数了,是什么问题?

Dim t As Table = Tables("表A")
For Each r As Row In t.Rows
    Dim sum As Double = 0
    For Each c As Col In t.Cols
        If c.name Like "*第*" Then
            If r(c.name) IsNot Nothing Then
                sum += 1
            End If
        End If
    Next
    msgbox(sum)
Next


图片点击可在新窗口打开查看此主题相关图片如下:截屏图片 (1).jpg
图片点击可在新窗口打开查看


 回到顶部