请教统计问题

yvll · 发表于 2023-7-19 16:21

请教统计问题，谢谢！

统计问题20230719.rar (9 KB, 下载次数: 12)

fanyoulin · 发表于 2023-7-19 16:30

我的观点，这种用颜色来识别的都有点扯，颜色这东西千千万，万一你手滑弄出来的深色或者浅色不同步有差异，那就统计不准了；

wengjl · 发表于 2023-7-19 16:42

Sub ss()

  For y = 2 To 8
j = 0
For x = 2 To 29
   Cells(x, y).Select
   If Selection.Font.ColorIndex = 1 Then
      j = j + 1
   End If
Next x
Cells(30, y).Value = j
  Next y
  ' 这是纵向统计，横向统计你自己修正吧

End Sub

512008404 · 发表于 2023-7-19 17:13

参与一下，效果如下！

yvll · 发表于 2023-7-19 18:24

512008404 发表于 2023-7-19 17:13
参与一下，效果如下！

非常好,感谢您。

ykcbf1100 · 发表于 2023-7-19 19:13

参与一下。

gwjkkkkk · 发表于 2023-7-19 19:58

参与一下。。。

准提部林 · 发表于 2023-7-19 20:06

自訂函數//數據變動..須按F9刷新

Xl0000285.rar (12.33 KB, 下载次数: 3)

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

[求助] 请教统计问题

评分

评分

评分