满足条件找最大位数

michaelaa

论坛的老师新年好,
帮忙加个条件实现相同条件的最大位数,谢谢!

ykcbf1100

附件供参考。。。

ykcbf1100

代码供参考。。。

1. Sub ykcbf()  '//2024.2.7
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Me.Cells(Rows.Count, 1).End(3).Row
   
4.     arr = Me.Range("a1:d" & r)
   
5.     For i = 2 To UBound(arr)
   
6.         s = arr(i, 1)
   
7.         If Not d.exists(s) Then
   
8.             d(s) = arr(i, 3)
   
9.         Else
   
10.             d(s) = IIf(d(s) < arr(i, 3), arr(i, 3), d(s))
    
11.         End If
    
12.     Next
    
13.     For i = 2 To UBound(arr)
    
14.         s = arr(i, 1)
    
15.         If d.exists(s) Then
    
16.             arr(i, 4) = d(s)
    
17.         End If
    
18.     Next
    
19.     Me.Range("a1:d" & r) = arr
    
20.     MsgBox "OK！"
    
21. End Sub
    

复制代码

今铭昔

cjc209

这种公式解决多简单=MAXIFS(C:C,A:A,A2) 非得写代码?

cjc209

今铭昔 发表于 2024-2-7 13:01

请问x[a] 表示的是什么?理解不了 望赐教 我知道x表示的是原数组 但a代表每一行的number  但x[a] 这个就无法理解

今铭昔

cjc209 发表于 2024-2-7 17:05
请问x[a] 表示的是什么?理解不了 望赐教 我知道x表示的是原数组 但a代表每一行的number  但x[a] 这个就无 ...

这里把数组当字典用了，数组也是一个对象，但比较特殊，既然是对象，那就可以当字典来用，这个也算是JS基础中的一点小九九（不太冷的知识，但有些少用）

gwjkkkkk

低版本函数来一个。。。

gwjkkkkk

D2=

1. =MAX(($A$2:$A$67=A2)*LEN($B$2:$B$67))

复制代码

数组三键

grf1973

还是用点正常人的思维吧，map有点想不通，太另类了。