求助大神，EXCEL中计算颜色个数（颜色是条件格式出来的）

♂天使之星♂

ykcbf1100 发表于 2024-4-17 19:16
楼主有说的。
现在要注意看清题意，不然，还得返工。

大神，能否在原先的代码基础上，帮忙修改一下呢，加了一列，我改不出来，谢谢

ykcbf1100

是这意思吗？

ykcbf1100

代码更新。。

1. Sub ykcbf()  '//2024.4.27
   
2.     r = Cells(Rows.Count, "b").End(3).Row
   
3.     Rows(5000) = ""
   
4.     For j = 17 To 33 Step 3
   
5.         n = 0: m = 0
   
6.         For i = 10 To r
   
7.             Set rng = Cells(i, j)
   
8.             If rng.DisplayFormat.Interior.ColorIndex = 14 Then n = n + 1
   
9.             If rng.Offset(0, -1).Value <> Empty Then m = m + 1
   
10.         Next
    
11.         Cells(2, j) = n
    
12.         Cells(2, j - 1) = m
    
13.     Next
    
14. End Sub
    

复制代码

♂天使之星♂

ykcbf1100 发表于 2024-4-27 17:53
代码更新。。

大神，最后一个按时数计算不出来呢？如下，请再帮忙改改代码，谢谢