关于一个姓名统计的问题

新手路上 · 发表于 2019-4-21 18:10

micch 发表于 2019-4-21 17:55
我很惊讶居然对了，反正我是没搞明白要求，修正一下多个人重复。
上面那是单个人最多。反正实际工作不 ...

太6了~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~·

我走我流 · 发表于 2019-4-21 18:23

jyieo 发表于 2019-4-21 17:49
看看对不对

您的PQ由于多次变换数据，不能自动更新，，嘿嘿，结果是木的问题，细节方法还需要微调

我走我流 · 发表于 2019-4-21 18:25

jyieo 发表于 2019-4-21 17:49
看看对不对

可惜今天没花了，明天再上吧，，

jyieo · 发表于 2019-4-21 18:40

我走我流发表于 2019-4-21 18:23
您的PQ由于多次变换数据，不能自动更新，，嘿嘿，结果是木的问题，细节方法还需要微调

后台刷新默认是60分钟，这个我没有调，可以调成1分钟

micch · 发表于 2019-4-21 18:50

本帖最后由 micch 于 2019-4-22 09:41 编辑

新手路上发表于 2019-4-21 18:10
太6了~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~·

很不幸的说，我理解错了，函数不是这么写的。
换代码测试了一下不对。做个自定义函数，修正一下

Function f(x, n)
Set d = CreateObject("scripting.dictionary")
ar = x
For i% = 1 To UBound(ar)
For k% = 1 To UBound(ar, 2)
d(i & ar(i, k)) = 0
If Not d.exists(i & ar(i, k)) = 1 Then d("@" & ar(i, k)) = d("@" & ar(i, k)) + 1
Next k, i
k = Application.WorksheetFunction.Max(d.items)
For Each x In d.keys
If d(x) = k Then st = st & x
Next
If n > UBound(Split(st, "@")) Then f = "" Else f = Split(st, "@")(n)
d.RemoveAll
End Function

复制代码

公式： =f(b$3:h$33,row(a1)) 下拉。

新手路上 · 发表于 2019-4-21 18:52

micch 发表于 2019-4-21 18:50
很不幸的说，我理解错了，函数不是这么写的。
换代码测试了一下不对。
公式： =f(b$3:h$3,row(a1)) ...

那您能不能早点说啊呜呜┭┮﹏┭┮，那究竟正确的公式是怎样的？？？┭┮﹏┭┮

jyieo · 发表于 2019-4-21 18:55

海鲜老师的是对的

zyhqzn · 发表于 2019-4-21 19:01

jyieo 发表于 2019-4-21 17:49
看看对不对

这个筛选的有问题？

sbdk007 · 发表于 2019-4-21 19:48

新手路上发表于 2019-4-21 16:56
哈哈，小女对吧。结果就是看看谁值班的天数多，就返回那个人的姓名，仅此而已，很简单的。。。。。

又来取经啦

玻璃深灰白丶 · 发表于 2019-4-21 19:52

我决定了，我要学习好VBA把这个问题解决。

		自动登录	找回密码
密码			免费注册

[已解决] 关于一个姓名统计的问题