Excel要分组

Question

我有一个excel，其中第一列包含学生的滚动数，如1.1,1.2,1.3等，第二列包含他们在每个学期的科目30 40 60的分数。我想知道每个学生得到的最高分只是我的擅长。我有近1000名学生。 以下是格式。想要使用perl脚本语言添加我想要这样做

Students  Marks Obtained
1.1       45
1.1       68
1.1       69
1.2       70
1.2       14
1.2       48
.
.
.
9.9       87
9.9       76
9.9       66
9.9       100

Answer 1

此代码从C16开始：

Dim StartX As Integer
Dim StartY As Integer
Dim i As Integer
Dim TmpS As String
Dim TmpI As Integer

StartX = 16
StartY = 3
TmpS = ""
TmpI = 0
For i = StartX To 9999
    If Cells(i, StartY).Value = "" Then Exit For

    If TmpS <> Cells(i, StartY).Value Then
        If i <> StartX Then
            Cells(i - 1, StartY + 2).Value = TmpI
            TmpI = Cells(i, StartY + 1).Value
        End If
    Else
        If TmpI < Cells(i, StartY + 1).Value Then TmpI = Cells(i, StartY + 1).Value
    End If
    TmpS = Cells(i, StartY).Value
Next
Cells(i - 1, StartY + 2).Value = TmpI

读取所有单元格并在每个学生附近写下最高费率
如果您愿意，可以放入数组或写入另一张表格......