多条件查找公式

ex1753

horselyq 发表于 2017-10-12 10:02

大神帮个忙，看看能不能不用数组？2000多条数据有点卡，加些辅助列也可以

ex1753

bbm000000 发表于 2017-10-12 10:01
你看看对不对

大神帮个忙，看看能不能不用数组？2000多条数据有点卡，加些辅助列也可以

horselyq

ex1753 发表于 2017-10-13 09:27
大神帮个忙，看看能不能不用数组？2000多条数据有点卡，加些辅助列也可以

增加一列[项目编号]就可以简单很多了。例如 四年级-男-60m 用某个编号代表
这样就不用每次都算三列了。

bbm000000

Sub i()
Dim i, d, ar, br(1 To 65536, 1 To 300)
Set d = CreateObject("scripting.dictionary")
ar = Range("a2:h" & Cells(Rows.Count, 1).End(3).Row)
For i = 1 To UBound(ar, 1)
If ar(i, 8) > "" Then
If d.Exists(ar(i, 1) & ar(i, 2) & ar(i, 3)) Then
s = ar(i, 8) * 6 - 2
m = d(ar(i, 1) & ar(i, 2) & ar(i, 3))
Do
If br(m, s) <> "" Then
s = s + 6
Else
Exit Do
End If
Loop While br(d(ar(i, 1) & ar(i, 2) & ar(i, 3)), s) = ""
br(m, s) = ar(i, 8)
br(m, s + 1) = ar(i, 5)
br(m, s + 2) = ar(i, 6)
br(m, s + 3) = ar(i, 7)
If s > n Then n = s
Else
k = k + 1
d(ar(i, 1) & ar(i, 2) & ar(i, 3)) = k
s = ar(i, 8) * 6 - 2
br(k, 1) = ar(i, 1)
br(k, 2) = ar(i, 2)
br(k, 3) = ar(i, 3)
br(k, s) = ar(i, 8)
br(k, s + 1) = ar(i, 5)
br(k, s + 2) = ar(i, 6)
br(k, s + 3) = ar(i, 7)
If s > n Then n = s
End If
End If
Next
[j30].Resize(k, n + 5) = br
End Sub
写的不好莫怪

ex1753

horselyq 发表于 2017-10-13 10:27
增加一列[项目编号]就可以简单很多了。例如 四年级-男-60m 用某个编号代表
这样就不用每次都算三列了。

你是说加个项目编号，在用数组吗？
如果是加了辅助列能不用数组，麻烦帮我把公式写出来。头晕的厉害，平时少用Excel。这两天这些公式把我转晕了。谢谢

ex1753

bbm000000 发表于 2017-10-13 10:30
Sub i()
Dim i, d, ar, br(1 To 65536, 1 To 300)
Set d = CreateObject("scripting.dictionary")

大神言重，这个是VB吗？更看不懂，出了问题没办法维护

bbm000000

ex1753 发表于 2017-10-13 10:52
大神言重，这个是VB吗？更看不懂，出了问题没办法维护

数据要是多的还想运算速度快的话最好VBA

孤山月

楼主绿色表格内是想求前三名吗？还是第一名？其实名次是可以直接输入的，和运动项目进行匹配，这样查找就容易多了。数组公式多了，自然运行缓慢。另H2=IF(G2="","",SUMPRODUCT(($C$2:$C$25=C2)*($G$2:$G$25<G2)*($G$2:$G$25<>""))+1),不必用原公式。

ex1753

孤山月 发表于 2017-10-13 10:58
楼主绿色表格内是想求前三名吗？还是第一名？其实名次是可以直接输入的，和运动项目进行匹配，这样查找就容 ...

绿色区域有些显示前3，有些前8，如果重名的话可能超过8人，比如第8名重名就超过8人。
名次手输入的话，重名要人工查找，输入。麻烦

谢谢

孤山月

建一个附表，将前三和前八的项目做出来，最后再判断即可，重名可根据班级和项目进行判断，会简单很多。用large函数，也能将名次一样的导出来。