[已解决]考号问题求教

779846526

Book1.zip (17.06 KB, 下载次数: 12)

2012-12-7 12:15 上传

点击文件名下载附件 [tr] [/tr]
[tr] [/tr]
[tr] [/tr]
[tr] [/tr]
[tr] [/tr]
[tr] [/tr]

请高手根据学生信息表的班级和成绩写个考号代吗：1、学生前后不能同班，且成绩由高到低去排。（班级数和学生人数可增加和减少，这里考号表是人工做的）我手工是这样调的：先按成绩降序排列，再将前后同班的向上或向下一个一个地调成前后不同班（选择离开始位置最近的地方安排，直到满足前后不同班）

最佳答案

月排行榜 / 总排行榜

wp8680

2012-12-7 14:49

Sub 排考号()
    Dim i As Integer, k As Integer
    Range("A2:C416").Sort Key1:=Range("C2"), Order1:=xlDescending
    For i = 2 To 416
        If Range("a" & i) = Range("a" & i).Offset(-1, 0) Then
            k = 0
            Do While Range("a" & i + k) = Range("a" & i).Offset(-1, 0)
                k = k + 1
            Loop
            arr = Range("a" & i & ":c" & i)
            brr = Range("a" & i + k & ":c" & i + k)
            Range("a" & i & ":c" & i) = brr
            Range("a" & i + k & ":c" & i + k) = arr
        End If
        Range("d" & i) = Range("d" & i).Offset(-1, 0) + 1
    Next i
    Range("d1") = "考号"
End Sub

跳转到最佳答案楼层

wp8680

Sub 排考号()
    Dim i As Integer, k As Integer
    Range("A2:C416").Sort Key1:=Range("C2"), Order1:=xlDescending
    For i = 2 To 416
        If Range("a" & i) = Range("a" & i).Offset(-1, 0) Then
            k = 0
            Do While Range("a" & i + k) = Range("a" & i).Offset(-1, 0)
                k = k + 1
            Loop
            arr = Range("a" & i & ":c" & i)
            brr = Range("a" & i + k & ":c" & i + k)
            Range("a" & i & ":c" & i) = brr
            Range("a" & i + k & ":c" & i + k) = arr
        End If
        Range("d" & i) = Range("d" & i).Offset(-1, 0) + 1
    Next i
    Range("d1") = "考号"
End Sub