[已解决]再求助:如何自动生成按一定顺序排列的信息

执与 · 发表于 2012-3-15 18:15

本帖最后由执与于 2012-3-15 20:16 编辑

如题，相同名次的人可能会有很多！希望用函数解决！

最佳答案

wp8680

2012-3-15 21:07

本帖最后由 wp8680 于 2012-3-15 21:12 编辑

=INDEX(成绩输入!B:B,--RIGHT(LARGE(成绩输入!$O$2:$O$105*1000+ROW($2:$105),ROW(A1)),2))&""

复制代码

zjcat35 · 发表于 2012-3-15 18:33

Sub 汇总()
Dim i As Integer, j As Byte, k As Integer, arr()
For i = 2 To Sheet1.[q65536].End(3).Row
If Sheet1.Cells(i, 17) < 31 Then
k = k + 1
ReDim Preserve arr(1 To 16, 1 To k)
For j = 1 To 16
arr(j, k) = Sheet1.Cells(i, j + 1)
Next j
End If
Next i
Sheet3.Range("e4:t999").ClearContents
Sheet3.Range("e4").Resize(k, 16) = Application.Transpose(arr)
Sheet3.Range("e3:t" & Sheet3.[t65536].End(3).Row).Sort Key1:=Range("t3"), Order1:=xlAscending, Header:= _
xlGuess
End Sub

复制代码

执与 · 发表于 2012-3-15 19:27

VBA还不会，有没有用函数解决的方法？

zjcat35 · 发表于 2012-3-15 20:29

复制代码

数组结束，右拉下拉！
这个的排序我就没办法啦！得出结果后，再复制选择性粘贴，数值以后再排序吧！

wp8680 · 发表于 2012-3-15 21:07

本帖最后由 wp8680 于 2012-3-15 21:12 编辑

=INDEX(成绩输入!B:B,--RIGHT(LARGE(成绩输入!$O$2:$O$105*1000+ROW($2:$105),ROW(A1)),2))&""

复制代码

wp8680 · 发表于 2012-3-15 21:14

详见附件

高一月考1成绩.xls.rar (81.59 KB, 下载次数: 25)

执与 · 发表于 2012-3-15 21:40

感谢小佩老师！
*1000很牛

ligh1298 · 发表于 2012-3-15 21:41

wp8680 发表于 2012-3-15 21:14
详见附件

你太有才了，往下拉时，想要多少名，就能等到多少名。

执与 · 发表于 2012-3-15 21:49

心情久久不能平复啊！真是太受教了！[em17]

honing · 发表于 2012-3-15 22:24

小佩老师真是太利害了，学习了。在数据中座位号是唯一的，数组公式太占地方了，就利用座位号来找后面的数据，在小佩老师的基础改了后面的公式。

高一月考1成绩1.rar (81.46 KB, 下载次数: 14)

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