动态图表-车次排名展示问题

poposusu

本人因工作需要要做一张图表，突出展示排名前2位车次情况，由于车次排名前2位的有可能是并列的所以图表要是动态的，做不出来请老师指下，详见附件。本人用的是WPS，谢谢老师

xiaojia8211

写了个蹩脚的程序+函数 混合体，起码能实现你的要求


Sub chongpai()
Dim a, b, c, d, i, j, k, m, n
Range("E2:L9").Clear
a = 0
For i = 2 To 7
    If Cells(i, 2) = Cells(2, 4) Then
        Cells(a + 3, 7) = Cells(i, 1)
        Cells(a + 3, 8) = Cells(i, 2)
        a = a + 1
        b = Cells(i, 2) + b
    End If
Next

For i = 2 To 7
    If Cells(i, 2) = Cells(4, 4) Then
        Cells(a + 3, 7) = Cells(i, 1)
        Cells(a + 3, 8) = Cells(i, 2)
        a = a + 1
        b = Cells(i, 2) + b
        
    End If
Next
Cells(a + 3 - 1, 11) = b
c = a + 3
For i = 2 To 7
    If (Cells(i, 2) - Cells(2, 4)) * (Cells(i, 2) - Cells(4, 4)) <> 0 Then
        Cells(a + 4, 7) = Cells(i, 1)
        Cells(a + 4, 9) = Cells(i, 2)
        a = a + 1
    End If
Next
For i = 2 To c
    Cells(i, 10) = b
Next


End Sub

xiaojia8211

附上所需要的函数

493861364

xiaojia8211 发表于 2022-5-23 11:17
写了个蹩脚的程序+函数 混合体，起码能实现你的要求

黑猫白猫，能抓耗子，就是好猫点赞

poposusu

xiaojia8211 发表于 2022-5-23 11:17
写了个蹩脚的程序+函数 混合体，起码能实现你的要求

太牛了，我要消化下，谢谢老师