求修改代码

lagos

统计颜色背景单元格的数量，增加一个条件，详情请看附件： 求修改代码B.rar (19.24 KB, 下载次数: 9)

2024-3-3 11:58 上传

点击文件名下载附件

杨建营

把这句代码改了就可以了

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&, j&, n&
   
    With [Q2].CurrentRegion
        ar = .Value
        For i = 1 To UBound(ar)
            n = 0
            For j = 1 To UBound(ar, 2)
                If .Cells(i, j).Interior.ColorIndex = 3 Then n = n + 1
            Next j
            n = IIf(n < 2, 0, 1)
            ar(i, 1) = n
        Next i
    End With
   
    [N2].Resize(UBound(ar)) = ar
    Beep
End Sub

gwjkkkkk

重写一个。。。