[已解决]请老师给我编个学生每年升一个年级的vba.

excelhao9712

教育上每年要统计学生情况，过1年学生所读年级就升1级，能不能请老师给我编一个vba全部一起升级。b列6年级要在c列中升成初中1年级，初中3年级可以升成初中4年级（升好后再调整）

A	B	C
姓名	小学何年级	初中何年级
xxx	2
xxx		3
xxx	5
xxx		2
xxx		1
xxx	4
xxx	3
xxx	6

最佳答案

月排行榜 / 总排行榜

yuhe0008

2012-1-3 20:46

Sub test()
    Dim i&
    For i = 3 To [a65536].End(xlUp).Row
        If Cells(i, 2) <> "" Then
            If Cells(i, 2) > 5 Then
                Cells(i, 2) = ""
                Cells(i, 3) = 0
            Else
                Cells(i, 2) = Cells(i, 2) + 1
            End If
        End If
        If Cells(i, 3) <> "" Then Cells(i, 3) = Cells(i, 3) + 1
    Next
End Sub

跳转到最佳答案楼层

yuhe0008

Sub test()
    Dim i&
    For i = 3 To [a65536].End(xlUp).Row
        If Cells(i, 2) <> "" Then
            If Cells(i, 2) > 5 Then
                Cells(i, 2) = ""
                Cells(i, 3) = 0
            Else
                Cells(i, 2) = Cells(i, 2) + 1
            End If
        End If
        If Cells(i, 3) <> "" Then Cells(i, 3) = Cells(i, 3) + 1
    Next
End Sub

excelhao9712

在屋内都能感觉到夜空是那么美啊！