用公式筛选出最大值

ych9999

hugeinfo 发表于 2024-5-25 11:47
=TAKE(SORT(FILTER($B$3:$C$13,$A$3:$A$13=H3),2,-1),1)

筛选出来的不是最大值，而是该公司最后一行的数据。

zhangcheng6688

学习一下字典，打扰了
Sub test()
arr = [a2].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   If Not d.exists(arr(i, 1)) Then
      d(arr(i, 1)) = Array(arr(i, 2), arr(i, 3))
   Else
      If arr(i, 3) > d(arr(i, 1))(1) Then
         d(arr(i, 1)) = Array(arr(i, 2), arr(i, 3))
      End If
   End If
Next
brr = [h2].CurrentRegion
For j = 2 To UBound(brr)
   For k = 2 To UBound(brr, 2)
      brr(j, k) = d(brr(j, 1))(k - 2)
      brr(j, k) = d(brr(j, 1))(k - 2)
    Next
Next
[h2].CurrentRegion = brr
End Sub

无关岁月

zhangcheng6688 发表于 2024-5-26 07:59
学习一下字典，打扰了
Sub test()
arr = [a2].CurrentRegion

通常我是这样写的

1. Sub 按钮2_Click()
   
2. Set d = CreateObject("scripting.dictionary")
   
3. arr = [a2].CurrentRegion
   
4. For i = 2 To UBound(arr)
   
5.     s = arr(i, 1)
   
6.     If d(s) = 0 Then
   
7.         m = m + 1
   
8.         d(s) = m
   
9.         For j = 1 To UBound(arr, 2)
   
10.             arr(m, j) = arr(i, j)
    
11.         Next
    
12.     Else
    
13.         k = d(s)
    
14.         If arr(k, 3) < arr(i, 3) Then
    
15.             For j = 1 To UBound(arr, 2)
    
16.                 arr(k, j) = arr(i, j)
    
17.             Next
    
18.         End If
    
19.     End If
    
20. Next
    
21. [h3].Resize(m, UBound(arr, 2)) = arr
    
22. End Sub

复制代码

无关岁月

查询的话就这样写
Sub 按钮2_Click()
Set d = CreateObject("scripting.dictionary")
arr = [a2].CurrentRegion
For i = 2 To UBound(arr)
    s = arr(i, 1)
    If d(s) = 0 Then
        d(s) = i
    Else
        j = d(s)
        If arr(j, 3) < arr(i, 3) Then
            d(s) = i
        End If
    End If
Next
brr = [h2].CurrentRegion
For i = 2 To UBound(brr)
    s = brr(i, 1)
    j = d(s)
    If Len(d(s)) Then
        brr(i, 2) = arr(j, 2)
        brr(i, 3) = arr(j, 3)
    End If
Next
[h2].CurrentRegion = brr
End Sub