[求助]急!如何用宏统计考试成绩中的各分数段人数.

我才开始学VBA.向各位请教了.

对于统计分数段问题,我不会用VBA,但此问题可用数据透视表

解决.

见笑大方之家了!

Private Sub CommandButton1_Click()
    CommandButton1.Enabled = False
    CommandButton2.Enabled = True
    Set cjd = Worksheets("成绩单")
    ed = cjd.[b65536].End(xlUp).Row
    cjd.Range("A1:D" & ed).Sort Key1:=cjd.Range("A1"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        SortMethod:=xlPinYin, DataOption1:=xlSortNormal
    h = 2                                                      '语文
    y = 7
    zg = 0
    zd = 200
    Do While h < ed + 1
        xx = cjd.Range("a" & h)
        f0 = 0
        f6 = 0
        f7 = 0
        f8 = 0
        f9 = 0
        f10 = 0
        f11 = 0
        f12 = 0
        f13 = 0
        f14 = 0
        f15 = 0
        zf = 0
        g = 0
        d = 200
        Do While xx = cjd.Range("a" & h)
            cj = Val(cjd.Range("c" & h))
            If cj > g Then g = cj
            If cj > 0 And cj < d Then d = cj
            Select Case cj
            Case Is < "0"
            Case 0
                f0 = f0 + 1
            Case Is < 60
                f6 = f6 + 1
            Case Is < 70
                f7 = f7 + 1
            Case Is < 80
                f8 = f8 + 1
            Case Is < 90
                f9 = f9 + 1
            Case Is < 100
                f10 = f10 + 1
            Case Is < 110
                f11 = f11 + 1
            Case Is < 120
                f12 = f12 + 1
            Case Is < 130
                f13 = f13 + 1
            Case Is < 140
                f14 = f14 + 1
            Case Else
                f15 = f15 + 1
            End Select
            h = h + 1
            zf = zf + Val(cjd.Range("c" & h))
        Loop
        If g > zg Then zg = g
        If d < zd Then zd = d
        Range("a" & y) = xx
        Range("b" & y) = zf
        If f6 + f7 + f8 + f9 + f10 + f11 + f12 + f13 + f14 + f15 > 0 Then
            Range("c" & y) = zf / (f6 + f7 + f8 + f9 + f10 + f11 + f12 + f13 + f14 + f15)
        End If
        If g > 0 Then Range("d" & y) = g
        If d < 200 Then Range("e" & y) = d
        Range("f" & y) = f15
        Range("g" & y) = f14
        Range("h" & y) = f13
        Range("i" & y) = f12
        Range("j" & y) = f11
        Range("k" & y) = f10
        Range("l" & y) = f9
        Range("m" & y) = f8
        Range("n" & y) = f7
        Range("o" & y) = f6
        Range("p" & y) = f0
        Range("q" & y) = f0 + f6 + f7 + f8 + f9 + f10 + f11 + f12 + f13 + f14 + f15
        y = y + 1
    Loop
    [d31] = zg
    [e31] = zd
    h = 2                                                      '数学
    y = 35
    zg = 0
    zd = 200
    Do While h < ed + 1
        xx = cjd.Range("a" & h)
        f0 = 0
        f6 = 0
        f7 = 0
        f8 = 0
        f9 = 0
        f10 = 0
        f11 = 0
        f12 = 0
        f13 = 0
        f14 = 0
        f15 = 0
        zf = 0
        g = 0
        d = 200
        Do While xx = cjd.Range("a" & h)
            cj = Val(cjd.Range("d" & h))
            If cj > g Then g = cj
            If cj > 0 And cj < d Then d = cj
            Select Case cj
            Case Is < "0"
            Case 0
                f0 = f0 + 1
            Case Is < 60
                f6 = f6 + 1
            Case Is < 70
                f7 = f7 + 1
            Case Is < 80
                f8 = f8 + 1
            Case Is < 90
                f9 = f9 + 1
            Case Is < 100
                f10 = f10 + 1
            Case Is < 110
                f11 = f11 + 1
            Case Is < 120
                f12 = f12 + 1
            Case Is < 130
                f13 = f13 + 1
            Case Is < 140
                f14 = f14 + 1
            Case Else
                f15 = f15 + 1
            End Select
            h = h + 1
            zf = zf + Val(cjd.Range("d" & h))
        Loop
        If g > zg Then zg = g
        If d < zd Then zd = d
        Range("a" & y) = xx
        Range("b" & y) = zf
        If f6 + f7 + f8 + f9 + f10 + f11 + f12 + f13 + f14 + f15 > 0 Then
            Range("c" & y) = zf / (f6 + f7 + f8 + f9 + f10 + f11 + f12 + f13 + f14 + f15)
        End If
        If g > 0 Then Range("d" & y) = g
        If d < 200 Then Range("e" & y) = d
        Range("f" & y) = f15
        Range("g" & y) = f14
        Range("h" & y) = f13
        Range("i" & y) = f12
        Range("j" & y) = f11
        Range("k" & y) = f10
        Range("l" & y) = f9
        Range("m" & y) = f8
        Range("n" & y) = f7
        Range("o" & y) = f6
        Range("p" & y) = f0
        Range("q" & y) = f0 + f6 + f7 + f8 + f9 + f10 + f11 + f12 + f13 + f14 + f15
        y = y + 1
    Loop
    [d59] = zg
    [e59] = zd
End Sub
Private Sub CommandButton2_Click()
    CommandButton2.Enabled = False
    CommandButton1.Enabled = True
    Range("a7:q30") = ""
    Range("a35:q58") = ""
End Sub

这个在实际中很有用，请高手们解析一下代码吧，让我们这些起步者好好学习学习！！

        cjd.Range("A1:D" & ed).Sort Key1:=cjd.Range("A1"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        SortMethod:=xlPinYin, DataOption1:=xlSortNormal

学习了..都开心..,但这段代码还是看不懂..是行排序的吧,具体每一条是干什么呢?请指教...... 

请问hupanshan：do while....loop 和for...next  有何区别，这个案例可否用 for来做？