“=SUMPRODUCT((COUNTIF(R$3:EG$3,E9:P9)))”下拉如何用代码实现

cys888

shuidisyy

next j 后加一句 If arrR(i, 1) = "" Then arrR(i, 1) = 0

shuidisyy

1. Sub test()
   
2.     Dim arr, brr, arrR(), dic As Object, i%, j%, irow%
   
3.     brr = Range("R3:EG3").Value
   
4.     irow = Cells(Rows.Count, "e").End(3).Row
   
5.     arr = Range("e9:p" & irow).Value
   
6.     ReDim arrR(1 To UBound(arr), 1 To 1)
   
7.     Set dic = CreateObject("scripting.dictionary")
   
8.     For i = 1 To UBound(brr, 2)
   
9.         dic(brr(1, i)) = ""
   
10.     Next i
    
11.     For i = 1 To UBound(arr)
    
12.         For j = 1 To UBound(arr, 2)
    
13.             If dic.exists(arr(i, j)) Then
    
14.                 arrR(i, 1) = arrR(i, 1) + 1
    
15.             End If
    
16.         Next j
    
17.     Next i
    
18.     Range("q9").Resize(UBound(arr), 1) = arrR
    
19. End Sub

复制代码

cys888

shuidisyy 发表于 2020-7-14 13:37

相同数据个数为0，代码计算结果显示为空值，怎么改成显示是0呢？

金樽空对月

详见附件，请查阅。

cys888

shuidisyy 发表于 2020-7-14 19:39
next j 后加一句 If arrR(i, 1) = "" Then arrR(i, 1) = 0

非常感谢

cys888

金樽空对月 发表于 2020-7-14 22:11
详见附件，请查阅。

非常感谢