主题：发帖求助，如何找出每个年级的最低分

 代码如下。

Dim prevClass As String = "一年级"
Dim min As Double = Double.MaxValue
For Each r As Row In Tables("Sheet3").Rows
    For Each c As Col In Tables("Sheet3").Cols
        If c.Name Like "?年级_*" Then
            If c.Name.SubString(0, 3) <> prevClass Then
                msgbox(r("学校") & " " & prevClass & " " & min)
                prevClass = c.Name.SubString(0, 3)
                min = Double.MaxValue
            Else
                If r(c.Name) < min Then min = r(c.Name)
            End If
        End If
    Next
Next

 你根据固定的规律弄一下吧，只能判断列名了。

 嗯嗯，是的，代码写错了。

Dim prevClass As String = "一年级"
Dim min As Double = Double.MaxValue
For Each r As Row In Tables("Sheet3").Rows
    For Each c As Col In Tables("Sheet3").Cols
        If c.Name Like "?年级_*" Then
            If c.Name.SubString(0, 3) <> prevClass Then
                msgbox(r("学校") & " " & prevClass & " " & min)
                prevClass = c.Name.SubString(0, 3)
                min = Double.MaxValue        
            End If
            If r(c.Name) < min Then min = r(c.Name)          
        End If
    Next
Next

 如下。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目107.table