查找并提取！

zhouxingyu

请教老师：如何实现在多个表中查找数值并提取，详见附件。多谢！
查找提取.rar (14.97 KB, 下载次数: 19)

2024-12-10 16:02 上传

点击文件名下载附件

cjc209

这也简单啊 就是循环遍历表 把数据降序排列后取前三就是了 对于程序来说 不复杂

3190496160

Sub 数据提取()
Dim ar As Variant
Dim br()
Dim sh As Worksheet
ReDim br(1 To 50000, 1 To 5)
For Each sh In Sheets
    If sh.Index > 1 Then
        r = sh.Cells(Rows.Count, 1).End(xlUp).Row
        ar = sh.Range("a1:e" & r)
        For s = 1 To 3
            zd = Application.Large(Application.Index(ar, 0, 3), s)
            For i = 1 To UBound(ar)
                If ar(i, 3) = zd Then
                    n = n + 1
                    For j = 1 To UBound(ar, 2)
                        br(n, j) = ar(i, j)
                    Next j
                    Exit For
                End If
            Next i
        Next s
    End If
Next sh
With Sheets("large")
    .[a1].CurrentRegion.Offset(1).Clear
    .[a2].Resize(n, UBound(br, 2)) = br
End With
MsgBox "ok!"
End Sub

3190496160

imss.rar (17.09 KB, 下载次数: 17)

2024-12-10 16:22 上传

点击文件名下载附件

cjc209

js框架自定义函数完成效果

zhouxingyu

cjc209 发表于 2024-12-10 16:27
js框架自定义函数完成效果

能麻烦给段代码不？

cjc209

如果有并列的也要取出来就是这样 照样简单 以中式排名为准

cjc209

zhouxingyu 发表于 2024-12-10 16:32
能麻烦给段代码不？

拿给你 也用不来 你不知道参数该怎么填写 这是我自己写的 我自己知道怎么用 也可以用wps js自身函数去完成

z865593849

遍历表取前3

zhouxingyu

3190496160 发表于 2024-12-10 16:21
Sub 数据提取()
Dim ar As Variant
Dim br()

麻烦再请教下：如果只取一个最大值要如何写？