请问要取得表格中出现次数最多的人名，并按多少排名，应该怎么做？

hcm19522

落子无声 发表于 2022-6-8 17:16
这么复杂的公式.好厉害。我直接在G2单元格的编辑栏粘贴后，还是这一串代码，不显示结果。不知道是是我哪 ...

試試 ~~~~~~~~~~

落子无声

hcm19522 发表于 2022-6-9 10:07
試試 ~~~~~~~~~~

完美啊。太厉害了。感觉你是微软的工程师吧？这么长的公式是怎么写出来的？

落子无声

图表愣头青 发表于 2022-6-8 09:50
我用的笨方法，先把所有人放一列 去重 再countif

我仔细看了一下，你这个转一维的办法可能和我不一样哦。你是怎么做到去掉重复人名的呢？

dtmkzhb

使用PQ的逆透视列后，数据透视表统计

hejia-690403732

Sub test()
    Set Rng = Application.InputBox("请选择单元格区域：", Type:=8)
    arr = Rng.Value
    Set dic = CreateObject("scripting.dictionary")
    For Each e In arr
       key = e
       dic(key) = dic(key) + 1
    Next
    keys = dic.keys: itmes = dic.items
    ReDim brr(1 To dic.Count, 1 To 2)
    For i = 0 To UBound(keys)
        brr(i + 1, 1) = keys(i): brr(i + 1, 2) = itmes(i)
    Next
    Set rng2 = Application.InputBox("请选择输出位置：", Type:=8)
    rng2.Resize(UBound(brr), 2) = brr
End Sub