求统计as17at17au17里三个单元格里两位数出现的次数

王拥军

solextrade

次数？？？

问一下，第39行的答案应该怎么写？

鄂龙蒙

两个数及以上的数相同的次数怎么办？

藍色DE流光

数组
=OFFSET($AR17,,MAX((COUNTIF($AS17:$AU17,$AS17:$AU17)=COLUMN(A1))*{1,2,3}))&""

鄂龙蒙

1. Sub 统计次数()
   
2.     Dim d, i, j, ar, br(), m%
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.    [AV17:AX136] = Empty
   
5.    ar = [AS17:AX136]
   
6.     For i = 1 To UBound(ar)
   
7.         For j = 1 To 3
   
8.             s = "'" & ar(i, j)
   
9.             If d(s) = "" Then
   
10.                 m = m + 1
    
11.                 ReDim Preserve br(1 To 2, 1 To m)
    
12.                 d(s) = m
    
13.                 br(1, m) = s
    
14.                 br(2, m) = 1
    
15.             Else
    
16.                 br(2, d(s)) = br(2, d(s)) + 1
    
17.             End If
    
18.         Next
    
19.         For j = 1 To m
    
20.             ar(i, br(2, j) + 3) = br(1, j)
    
21.         Next
    
22.         m = 0
    
23.         d.RemoveAll
    
24.         Erase br
    
25.     Next
    
26.     [AS17].Resize(UBound(ar), 6) = ar
    
27.    Set d = Nothing
    
28. End Sub

复制代码

王拥军

谢谢,solextrade好朋友,刚下班,这样就行了

王拥军

=OFFSET($AR17,,MAX((COUNTIF($AS17:$AU17,$AS17:$AU17)=COLUMN(A1))*{1,2,3}))&""这个公式不行,1个的数据没列出来,还请各位完善,谢谢

藍色DE流光

王拥军 发表于 2020-2-1 19:12
=OFFSET($AR17,,MAX((COUNTIF($AS17:$AU17,$AS17:$AU17)=COLUMN(A1))*{1,2,3}))&""这个公式不行,1个的数据 ...

=TEXTJOIN(",",,IF((MATCH($AS17:$AU17,17:17,)={45,46,47})*(COUNTIF($AS17:$AU17,$AS17:$AU17)=COLUMN(A1)),$AS17:$AU17,""))

王拥军

公式不显示啊

藍色DE流光

王拥军 发表于 2020-2-1 19:37
公式不显示啊

textjoin是高版本函数，如果你没有的话公式就没法了