按月份统计颜色出现的次数

mfk1288

黄色部分就想达到的结果。其实就是想统计每种颜色在每个月的次数。然后跨月了，又重新从001开始计算这种颜色在这个月出现的第1次。

limonet

函数也是excel的精华
=LEFT(B2,1)&TEXT(COUNTIFS(B$1:B2,B2,A$1:A2,"<="&EOMONTH(A2,0),A$1:A2,">"&EOMONTH(A2,-1)),"000")

无关岁月

按月份统计颜色出现的次数.7z (16.45 KB, 下载次数: 8)

2023-12-6 09:53 上传

点击文件名下载附件

chxw68

参与一下。

cidanji

按月份统计颜色出现的次数.rar (18.29 KB, 下载次数: 4)

2023-12-6 10:08 上传

点击文件名下载附件

mfk1288

cidanji 发表于 2023-12-6 10:08

谢谢指导！

mfk1288

无关岁月 发表于 2023-12-6 09:54

谢谢指导！

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2023.12.6
   
2.     Dim arr, brr, d
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     r = Cells(Rows.Count, 1).End(3).Row
   
5.     arr = Range("a1:c" & r)
   
6.     For i = 2 To UBound(arr)
   
7.         st = Left(Trim(arr(i, 2)), Len(Trim(arr(i, 2))) - 1)
   
8.         s = Month(arr(i, 1)) & "|" & st
   
9.         d(s) = d(s) + 1
   
10.         arr(i, 3) = st & Format(d(s), "000")
    
11.     Next
    
12.     [e1].Resize(UBound(arr), 3) = arr
    
13. End Sub
    
14. 
    

复制代码

ykcbf1100

参与一下。。。

cyq4896

参与一下..