筛选排序取值问题

sampsonpon

请帮忙看附件内容，在线等

蓝桥玄霜

把空列J列删除，录入代码执行即可。

Learner2022

1. 
   
2. Public Sub 筛选()
   
3. Dim dic As Object, arr, brr, i%, n%
   
4. Set dic = CreateObject("scripting.dictionary")
   
5. LastRow = [E2].End(xlDown).Row
   
6. arr = Range("E2:E" & LastRow)
   
7. brr = Range("N2:N" & LastRow)
   
8. For i = 1 To LastRow - 1
   
9.     If brr(i, 1) > 1 And brr(i, 1) <> "" Then
   
10.         dic(arr(i, 1)) = brr(i, 1)
    
11.     End If
    
12. Next
    
13. For n = 1 To 50
    
14.    
    
15. Next
    
16. End Sub

复制代码

Learner2022

前面几个需求我都写了就到了怎么找出最大的五十个item那里我有点不会写了

sampsonpon

蓝桥玄霜 发表于 2023-4-2 21:29
把空列J列删除，录入代码执行即可。

应该是把空列的L列吧？

sampsonpon

蓝桥玄霜 发表于 2023-4-2 21:29
把空列J列删除，录入代码执行即可。

然后再按E列由上往下顺序取不超过50个的不同值
改为
然后再按E&F列由上往下顺序取不超过50个的不同值
代码如何修改？

准提部林

筛选出O列>1的所有值并降序??? 只限大于１???
也就是...E列同一編號對應O列數值不同(被排序後位罝不連續), 可能不會全部被取出~~