怎么用VBA做这个判断？

jiaqitang

工作簿里每个客户都有一个表，现在我想做一个统计表，如果任何客户表里， total cost 对应的单元格里数值不是0或不是空值（标注黄色的单元格），那么统计表里，相应的客户在“是/否”那列，就自动显示 YES，如果数值是0或空值，就显示NO。

TOTALCOST 对应的单元格在每个客户表里不是总在同一位置。

实际的工作簿里有 30多个客户表。



请看附件

moonlit123

大概是能正常运行的，现在只判断每个表第17行的TOTALCOST
如果不在17行，需要再多加一个for遍历行数。

3190496160

Sub 统计()
Dim ar()
Dim rn As Range
ReDim ar(1 To Sheets.Count, 1 To 2)
For Each sh In Sheets
    If sh.Index > 2 Then
        Set rn = sh.UsedRange.Find("Total Cost", , , , , , 1)
        If Not rn Is Nothing Then
            n = n + 1
            ar(n, 1) = sh.Name
            sl = rn.Offset(, 1).Value
            If sl = "" Or sl = 0 Then
                ar(n, 2) = "NO"
            Else
                ar(n, 2) = "Yes"
            End If
        End If
    End If
Next sh
With Sheets("统计")
    .[a1].CurrentRegion.Offset(2) = Empty
    .[a3].Resize(n, 2) = ar
End With
MsgBox "ok!"
End Sub

3190496160

盼盼198310

..........

3190496160

acounting.rar (25.62 KB, 下载次数: 8)

2023-2-9 09:35 上传

点击文件名下载附件

jiaqitang

大佬请加上遍历行数

grf1973

。。。。。。。。。。。

zldccmx

jiaqitang

grf1973 发表于 2023-2-9 09:36
。。。。。。。。。。。

运行错误

SubScript out of range