求助关于针对某行数据按条件筛选最大最小值的代码

pai_jl

      小弟刚刚接触vba不久，领导就给我个难题，我也只会几个简单的判断和循环。      其他步骤都解决了，就剩下最后这一步卡着了，冥思苦想了一个多礼拜，最终明白：此类问题不是我能解决的！
      平日见坛子中各路高手无数，故特向好汉侠女们求助，在此谢过！

思路是这样的：1，针对行3中的10个热力指数，分别找出大于、等于、小于零的列
                      2，分别在大于、小于、等于 零的列中，针对行5的数据，找出对应的最大最小值并填入M5:R5中
                           （下图中针对行5，右侧已有目标结果显示）
                      3，如果大于、小于、等于零的对象中，只有一个数据存在（如下图中的大于零的对象）那么对应的
                            右侧结果栏里的最大最小值就显示这一个数据,原表有十万多行数据，每一行都要将对应结果筛选出并填入右侧，附件中就选了几十行以作参考。

pai_jl

有附件，各位高手可以直接打开看看！谢谢！

liulang0808

楼主这个直接就可以看出来的。。。需要那么复杂的解决吗

pai_jl

liulang0808 发表于 2019-9-7 15:29
楼主这个直接就可以看出来的。。。需要那么复杂的解决吗

每一行都要计算，有10多万行的

pai_jl

在线等啊，再交不出来周一就要挨批了:（

liulang0808

1. Sub 按钮1_Click()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Application.ScreenUpdating = False
   
4.     For j = 2 To 11
   
5.         Select Case Cells(3, j).Value
   
6.             Case 0
   
7.                 If d.exists("等于零") Then
   
8.                     Set d("等于零") = Union(d("等于零"), Cells(5, j))
   
9.                 Else
   
10.                     Set d("等于零") = Cells(5, j)
    
11.                 End If
    
12.             Case Is < 0
    
13.                 If d.exists("小于零") Then
    
14.                     Set d("小于零") = Union(d("小于零"), Cells(5, j))
    
15.                 Else
    
16.                     Set d("小于零") = Cells(5, j)
    
17.                 End If
    
18.             Case Is > 0
    
19.                 If d.exists("大于零") Then
    
20.                     Set d("大于零") = Union(d("大于零"), Cells(5, j))
    
21.                 Else
    
22.                     Set d("大于零") = Cells(5, j)
    
23.                 End If
    
24.         End Select
    
25.     Next j
    
26.     For j = 13 To 17 Step 2
    
27.         Cells(5, j) = WorksheetFunction.Min(d(Cells(3, j).Value))
    
28.         Cells(5, j + 1) = WorksheetFunction.Max(d(Cells(3, j).Value))
    
29.     Next j
    
30.     Application.ScreenUpdating = True
    
31. End Sub

复制代码

liulang0808

结果与楼主的模拟数据有出入，供餐卡

pai_jl

liulang0808 发表于 2019-9-7 15:44

大神，先不管结果如何，为什么你能这么快就写这么多代码？！哈哈哈，谢谢先

pai_jl

liulang0808 发表于 2019-9-7 15:45
结果与楼主的模拟数据有出入，供餐卡

大于零，等于零，小于零是条件，是要用行3的数据判断的，比如行三满足大于零的，再将对应的行5的数据找最大最小值

liulang0808

pai_jl 发表于 2019-9-7 15:46
大神，先不管结果如何，为什么你能这么快就写这么多代码？！哈哈哈，谢谢先

这个具体看使用情况进行优化吧。
楼主仅仅是针对这一行处理的，暂时写一个变通的