你已经问过这个问题
还没解决吗?
给你一个自定义函数
这样用起来比较灵活
.
压住alt键打F11、I、M三键
把下面的自定义函数代码粘贴后
回到表格,在H6打入公式=ctr(B$6:F$305,I6:J6,K6:P6)
再向下填充4620行即可看到结果
Function Ctr(a As Range, b As Range, c As Range) As Integer
n = 0
For i = 1 To a.Rows.Count
s = "": For j = 1 To a.Columns.Count: s = s & " " & a(i, j): Next
u = 0: For j = 1 To b.Columns.Count: u = u - (InStr(s, " " & b(1, j)) > 0): Next
v = 0: For j = 1 To c.Columns.Count: v = v - (InStr(s, " " & c(1, j)) > 0): Next
If u = 2 And v = 3 Then n = n + 1
Next
Ctr = n
End Function
.
用这个自定义函数就可以很灵活
你的三个数据区域的位置、行数和列数都不受限制
而且这个函数的代码很简洁
修改、扩充都很容易
增加一个条件区域只需加一行代码就可以了
.
要是你不想自己走脑做
我可以给你做成全自动
但是就没有你自己动手那么灵活了
.
傻瓜相机总是成就傻瓜
追问非常感谢,你这方法终于帮我解决了难题。我是压住alt键打F11打开的
本回答被提问者和网友采纳