统计每一列颜色的个数，如左边

数学孟涛

统计每一列颜色的个数，如左边

工作簿1.rar (8.21 KB, 下载次数: 117)

2021-11-25 10:19 上传

点击文件名下载附件
工作簿1.rar

水瓶座的将军

函数是色盲，分辨不出来的
要做这个题，必须用VBA

火哥儿

简单代码可实现。
Private Sub CommandButton1_Click()
  Dim rn As Range
  Dim r As Range, c&
  Set rn = Range(Range("A10000").End(xlUp), "C1")
  For Each r In rn
  If r.DisplayFormat.Interior.Color <> vbWhite Then
    Select Case r.DisplayFormat.Interior.Color
      Case 255: c = 4
      Case 10498160: c = 5
      Case 5296274: c = 6
    End Select
    Cells(r.Row, c) = Cells(r.Row, c) + 1
  End If
  Next
End Sub