请教：区域里0至9的红色数字各有多少个？

张TX

请教：B2至G29区域中，0至9的红色数字各有多少个？

结果在I2至R2中体现。

一把小刀闯天下

'1有2个，，，

Option Explicit

Sub test()
  Dim i, rng, dic
  Set dic = CreateObject("scripting.dictionary")
  For Each rng In [b2:g29]
    If rng.Interior.Color = 192 Then dic(rng.Value) = dic(rng.Value) + 1
  Next
  For i = 9 To 18
    If dic.exists(Cells(1, i).Value) Then
      Cells(2, i) = dic(Cells(1, i).Value)
    Else
      Cells(2, i) = 0
    End If
  Next
End Sub

张TX

一把小刀闯天下 发表于 2019-9-11 20:07
'1有2个，，，

Option Explicit

我不会VBA,能否帮我把程序放在文件里？谢谢！

一把小刀闯天下

张TX 发表于 2019-9-11 20:18
我不会VBA,能否帮我把程序放在文件里？谢谢！

这是VBA论坛，你这要求过分了。自己查一下怎么在Excel中使用VBA就会得到结果的

张TX

一把小刀闯天下 发表于 2019-9-11 20:23
这是VBA论坛，你这要求过分了。自己查一下怎么在Excel中使用VBA就会得到结果的

好吧，我试试，谢谢！