怎么提取各科成绩第一名？

micch

不是冒犯不冒犯，大家都是陌生人，只是两个不搭边的东西，应用领域重叠的很少，没必要混一起比较。十几亿农民不懂城市里的情调，只懂庄稼地，城里人也没必要贬低他们，毕竟没有基础的粮食，哪来的精神追求。

Excel层次很基础，但是毕竟是无数人不可或缺的工具，数据库是另一个赛道，另一个领域。所以在Excel里用SQL可以，但是说Excel低端不需要用，该换高层次的工具，也没必要，毕竟更多的人是底层，上层的人是少数。如果绝大部分人都是上层人，想想都可怕，大家都高端了，低端都没人了，这个结构估计是最不平衡的结构。

翁知江安

Sub test1()
Dim i, j, m, k
Dim arr, brr
arr = Sheets("成绩").Range("a1").CurrentRegion
ReDim brr(1 To 1000, 1 To 5)
For i = 4 To UBound(arr, 2)
   m = Sheet1.Application.Max(Sheets("成绩").Cells(2, i).Resize(UBound(arr) - 1, 1))
   For j = 2 To UBound(arr)
  If arr(j, i) = m Then
        k = k + 1
        brr(k, 1) = arr(j, 1)
        brr(k, 2) = arr(j, 2)
        brr(k, 3) = arr(j, 3)
        brr(k, 4) = arr(1, i)
        brr(k, 5) = arr(j, i)
   End If
   Next
Next
Sheets("提取各科第一名").[a2].Resize(UBound(brr), 5) = brr
End Sub

翁知江安

希望对你有所帮助

lc16whj

Qs18 发表于 2024-10-23 13:34
试试...........

高手，借楼主的贴子请教一下，能不能自定义提取的名次！例如，我想提取各科的前10名，只要将1改为10即可。提取其他的名次，只要修改一下代码的数字即可。并列的名次都要提取！谢谢高手！

今铭昔

参考：https://developer.mozilla.org/zh ... al_Objects/Iterator
我是根据的这个文档，自己造的轮子（毕竟是实验阶段的语法，JSA里没这个）

lizhipei78

lc16whj 发表于 2024-10-24 07:12
高手，借楼主的贴子请教一下，能不能自定义提取的名次！例如，我想提取各科的前10名，只要将1改为10即 ...

这个简单，用JSA写了一个，VBA自己对着别人的代码改应该问题也不大吧
JSA提取各科前几名.rar (20.93 KB, 下载次数: 6)

2024-10-24 10:01 上传

点击文件名下载附件

lizhipei78

VBA也帮你写了一个

JSA&VBA提取各科前几名.rar (23.4 KB, 下载次数: 8)

2024-10-24 10:38 上传

点击文件名下载附件

sxbjzjf110

参与一下。。。。。。。

lc16whj

lizhipei78 发表于 2024-10-24 10:01
这个简单，用JSA写了一个，VBA自己对着别人的代码改应该问题也不大吧

高手，VBA不会，函数可以修改，WPS没安装，能不能按我的要求帮忙修改一下代码？