如何按颜色统计单元格数量？？？高手请

qjnx2003 · 发表于 2020-1-30 22:32

如上图
每列都有红色单元格。在右侧表格中统计出，每列红色单元格的数量。
如果此表格中，数值为零，此单元格不涂色，如果非零，此单元格涂红色。
不胜感激！请高手赐教！

qjnx2003 · 发表于 2020-1-30 22:37

第二张图，第三张图统计表格中，非零数值应该涂红色

shenjianrong163 · 发表于 2020-1-31 00:24

Sub test()
Dim i, j
Dim arr, brr, crr(1 To 4)
With Worksheets("sheet1")
      If .Cells(.Rows.Count, 6).End(xlUp).Row > 1 Then
         .Range("E2:F" & .Cells(.Rows.Count, 6).End(xlUp).Row).ClearContents
      End If
      arr = .Range("A1:D1")
      brr = .UsedRange
      For i = 1 To UBound(brr)
         For j = 1 To UBound(brr, 2) - 1
            If .Cells(i, j).Interior.ColorIndex = 3 Then
                  crr(j) = crr(j) + 1
            End If
         Next
      Next
      [E2].Resize(UBound(crr), 1) = Application.Transpose(crr)
      [F2].Resize(UBound(arr, 2), 1) = Application.Transpose(arr)
      For i = 1 To UBound(crr)
         If .Cells(i + 1, 5) <> "" Then
            .Cells(i + 1, 5).Interior.ColorIndex = 3
         Else
            .Cells(i + 1, 5) = 0
         End If
      Next
End With
End Sub

统计颜色.rar (9.9 KB, 下载次数: 2)

liulang0808 · 发表于 2020-1-31 07:33

楼主使用单元格属性Interior.ColorIndex来判断底色，循环遍历即可
如果还有问题，建议上传附件

qjnx2003 · 发表于 2020-2-6 16:06

已解决

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