根据学号或者姓名查询成绩

金权621

根据学号或者姓名查询成绩

andfor828

Sub 查询()
    Dim nrow As Long
    Dim rng As Range
    Range("K3:P3").Clear
    Set rng = Columns(1).Find(Range("j3").Value, lookat:=xlWhole)
    If Not rng Is Nothing Then           '判断是否找到内容匹配的单元格
        nrow = rng.Row                   '取得查找到的单元格的行号
        Range("K3:P3").Value = Range(Cells(nrow, 3), Cells(nrow, 8)).Value
    Else
        Set rng = Columns(2).Find(Range("j3").Value, lookat:=xlWhole)
        If Not rng Is Nothing Then           '判断是否找到内容匹配的单元格
        nrow = rng.Row                   '取得查找到的单元格的行号
        Range("K3:P3").Value = Range(Cells(nrow, 3), Cells(nrow, 8)).Value
    Else
        MsgBox "没有找到符合条件的记录！"
    End If
    End If
End Sub

andfor828

试试吧。
记得启用宏。

solextrade

=LOOKUP(,0/(($A3:$A6=$J3)+($B3:$B6=$J3)),C3:C6)

secret2003

=LOOKUP(1,0/(($J3=OFFSET($A$3,0,0,COUNTA($A:$A)-1,1))+($J3=OFFSET($B$3,0,0,COUNTA($B:$B)-1,1))),OFFSET(C$3,0,0,COUNTA(C:C)-1,1))
试试这个，数据可以实时进行添加更新