Excel VBA 自定义函数不能执行，怎么办

Question

如题所述

Answer 1

Function countcolor(rng As Range)
For Each rng In Rang("A1:A10")
If rng.Interior.Color = RGB(255, 255, 0) Then
countcolor = countcolor + 1
End If
Next rng
End Function
试试行不。本回答被网友采纳