- ©«¤l
- 2808
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2864
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-5-8
|
¥H¤Uµ{¦¡½X©ñ¦b¤@¯ë¼Ò²Õ:
Function GetCount(xA As Range, xB As Range, C$)
Dim Arr, Brr, xD, i&, j&, B
Set xD = CreateObject("Scripting.Dictionary")
Arr = xA: Brr = xB
For i = 1 To UBound(Arr)
If Arr(i, 1) <> C Or Val(Brr(i, 1)) = 0 Then GoTo 101
B = Split(Brr(i, 1) & "-" & Brr(i, 1), "-")
For j = B(0) To B(1): xD(j) = 1: Next j
101: Next
GetCount = xD.Count
End Function
D3/¤½¦¡:
=IF(B3="","",GetCount(A$7:A$20,D$7:D$20,B3))
¸ê®Æ¦hªº¸Ü, À³¸Ó·|¥d
=============================== |
|