求只统计区域最后一行有颜色数量

lagos · 发表于 2024-3-16 09:30

统计q2:u区域最后一行有背景颜色单元格数量，详情请看附件：

统计最后一行有背景颜色单元格的数量.rar (20.43 KB, 下载次数: 5)

gwjkkkkk · 发表于 2024-3-16 12:45

Option Explicit
Sub TEST2()
Dim ar, i&, j&, n&

Application.ScreenUpdating = False

With [Q1].CurrentRegion
      ar = .Value

      For i = UBound(ar) To 1 Step -1
         n = 0
         For j = 1 To UBound(ar, 2)
            If .Cells(i, j).Interior.Color = vbRed Then n = n + 1
         Next j
         If n Then MsgBox n: Exit For
      Next i
End With

Application.ScreenUpdating = True
Beep
End Sub

gwjkkkkk · 发表于 2024-3-16 12:46

请参考。。。

^星^ · 发表于 2024-3-16 13:10

统计最后一行有背景颜色单元格的数量.zip (22.09 KB, 下载次数: 4)

		自动登录	找回密码
密码			免费注册

[求助] 求只统计区域最后一行有颜色数量

评分

评分

评分