统计每一列，每一种颜色的个数

勇者向前

=ClCount($A2:$C2,G$1)
右拉下拉。
颜色计数.zip (20.4 KB, 下载次数: 10)

2021-11-24 19:11 上传

点击文件名下载附件
颜色计数.zip

爬出壳的蜗牛

vba吧，公式，可以看看get.cell

春风柳荫

你会吗，帮帮忙

宝贝真可爱

Sub ColorCount()
  Dim rngCell As Range, rngUnion As Range, i%
  For i = 2 To Range("a" & Rows.Count).End(xlUp).Row
  For Each rngCell In Cells(i, 1).Resize(1, 3)
    If rngCell.Interior.Color = 255 Then
      If rngUnion Is Nothing Then
      Set rngUnion = rngCell
      Else
      Set rngUnion = Application.Union(rngUnion, rngCell)
      End If
    End If
  Next rngCell
  If Not rngUnion Is Nothing Then Cells(i, 4) = rngUnion.Columns.Count
  Set rngCell = Nothing
  Set rngUnion = Nothing
  For Each rngCell In Cells(i, 1).Resize(1, 3)
    If rngCell.Interior.Color = 10498160 Then
      If rngUnion Is Nothing Then
      Set rngUnion = rngCell
      Else
      Set rngUnion = Application.Union(rngUnion, rngCell)
      End If
    End If
  Next rngCell
  If Not rngUnion Is Nothing Then Cells(i, 5) = rngUnion.Columns.Count
  Set rngCell = Nothing
  Set rngUnion = Nothing
  For Each rngCell In Cells(i, 1).Resize(1, 3)
    If rngCell.Interior.Color = 5296274 Then
      If rngUnion Is Nothing Then
      Set rngUnion = rngCell
      Else
      Set rngUnion = Application.Union(rngUnion, rngCell)
      End If
    End If
  Next rngCell
  If Not rngUnion Is Nothing Then Cells(i, 6) = rngUnion.Columns.Count
  Set rngCell = Nothing
  Set rngUnion = Nothing
  Next i
End Sub
颜色计数.zip (17.76 KB, 下载次数: 13)

2021-11-24 19:11 上传

点击文件名下载附件
颜色计数.zip

时光的复仇

用函数怎么做

独自的修行

用函数怎么操作

虹兴

颜色代号 :奌选H2-->CTR+F3-->定义名称QQ(随意 非指令均可 如 QQ ,AA…)-->参照到公式=GET.CELL(63,A2)-->确定-->H2输入公式=QQ-->右拉 下拉-->颜色改变或重开机 重新RUN与下拉一次
D2:F17=TEXT(COUNTIF($H2:$J2,CHOOSE(COLUMN(A1),3,29,6)),"0;;")
54-9178.rar (8.67 KB, 下载次数: 179)

2021-11-24 19:11 上传

点击文件名下载附件
54-9178.rar

用户小轿流水

可以解析一下步奏？

雾逝人非

看一看，对不对？
工作簿1JKY4I9.zip (8.9 KB, 下载次数: 15)

2021-11-24 19:11 上传

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

财经小白

vba吧，公式，可以看看get.cell