08 excel vba 根据学生学号输入成绩

简化输入成绩的过程，不用鼠标，就能完成学生某科成绩的输入。

Option Explicit

'根据学号输入语文成绩

Sub 输入语文成绩()

Dim xuehao As Integer, fen As Integer, x As Integer, y As Integer

'确定表格有多少行

x = Range("a1").End(xlDown).Row

'msgbox(x) 可以显示获得数据是否正确

For y = 2 To x

    xuehao = InputBox("请输入学生学号")
    
    fen = InputBox("请输入语文成绩")
    
    Cells(xuehao + 1, 3).Value = fen
    
    Next y
    
End Sub

数据格式：