Excel VBA求每列重复数据个数

hello！world

请问各位大神
求助：A列中有重复数值，统计重复个数，并且显示在W列，把A列中相同数值对应的V列数据求出平均值，显示在X列。
求各位老师帮帮忙！谢谢大家了！！

jiminyanyan

　上附件吧………………

hello！world

就是A列中的数据有重复值，算出每个重复值重复了几次，显示在V列，
然后就是，假设A列数据相同的几行为一个块，求这个块里B列数据的平均值，类似于附件里图的那样

smsn

好像不vba也行，countif sumif应该能能对付

jiminyanyan

Sub jimin()
'QQ494585639
    Dim i&, Myr&, Arr
    Dim brr(1 To 10000, 1 To 1)
    Dim d, k, t
    Dim d1
    Set d = CreateObject("Scripting.Dictionary")
    Set d1 = CreateObject("Scripting.Dictionary")
    Myr = Sheet1.[a65536].End(xlUp).Row
    Arr = Sheet1.Range("a1:b" & Myr)
    For i = 1 To UBound(Arr)
       d(Arr(i, 1)) = d(Arr(i, 1)) + 1
       d1(Arr(i, 1)) = d1(Arr(i, 1)) + Arr(i, 2)
    Next
    For i = 1 To UBound(Arr)
        If d(Arr(i, 1)) <> "jimin" Then
            brr(i, 1) = d1(Arr(i, 1)) / d(Arr(i, 1))
            d(Arr(i, 1)) = "jimin"
        End If
    Next
    Sheet1.Range("d1").Resize(UBound(brr), 1) = brr
    Set d = Nothing
    Set d1 = Nothing
End Sub