重复数据求和排名引用

wxt881026

求助大神，对重复出现的款号的销量总和求和后排名并引用到空白单元格去。（我估计数据计算会很卡）有VBA 解决办法也行，/大哭，俺的VBA白到底。

wxt881026

先顶！d=====(￣▽￣*)b个人气

wxt881026

mikezhan 发表于 2018-1-12 09:07
兄弟，放弃用EXCEL函数解决你这问题吧，我刚才试了一下，大数据卡表。

不用VBA 不行。

恩透视是可以解决 但是这种类型的表格有很多，而且每天要数据更新，透视起来很繁琐。有VBA 的办法么！~我VBA直接白到底。

wxt881026

mikezhan 发表于 2018-1-12 09:17
我用 数据透视表 半分钟解决你这问题了。

你可以试下

恩透视是可以解决 但是这种类型的表格有很多，而且每天要数据更新，透视起来很繁琐。

wxt881026

mikezhan 发表于 2018-1-12 11:37
你又不会 VBA，又嫌　透视表麻烦，函数又解决不了。

那你可以自己去求佛了

手工做一次数据 的工作量太大 ！~一天都搞不定。只能找大神

sdc3211772

Sub ddddd()
Dim arr, brr, i, m, n, a, b, crr, k, drr()
Set d = CreateObject("scripting.dictionary")
arr = Range("a2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
For i = 1 To UBound(arr)
    d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 2)
Next
brr = Application.Transpose(Array(d.keys, d.items))
For m = 1 To UBound(brr)
        For n = m + 1 To UBound(brr)
        If brr(m, 2) < brr(n, 2) Then
            a = brr(m, 1): b = brr(m, 2)
            brr(m, 1) = brr(n, 1): brr(m, 2) = brr(n, 2)
            brr(n, 1) = a: brr(n, 2) = b
        End If
    Next
Next
d.RemoveAll
For i = 1 To UBound(brr)
    d(brr(i, 2)) = brr(i, 2)
Next
crr = d.keys
For i = 1 To UBound(brr)
    n = 0
    p = p + 1
    ReDim Preserve drr(1 To 3, 1 To i)
    For j = 0 To UBound(crr)
        If brr(i, 2) <= crr(j) Then n = n + 1
    Next
    drr(1, i) = n
    drr(2, i) = brr(i, 1)
    drr(3, i) = brr(i, 2)
Next
Range("h:j").ClearContents
Cells(1, "h").Resize(1, 3) = Array("求和后名次", "款号", "求和数量")
Cells(2, "h").Resize(p, 3) = Application.Transpose(drr)
End Sub
重复数据求和排名引用.zip (290.32 KB, 下载次数: 6)

2018-1-12 15:20 上传

点击文件名下载附件

llpsrnfrw

需要添加辅助列，需要一列汇总的和，请见附件