Sub 查找姓名所在行()
Range("F2") = Range("A:A").Find(Range("F1")).Row
End Sub
Sub 使用工作表函数查找姓名所在行()
Range("F2") = Application.Match(Range("F1"), Range("A:A"), 0)
End Sub
Sub 使用工作表函数查找()
Range("F2") = Application.wo.WorksheetFunction.Match(Range("F1"), Range("A:A"), 0)
End Sub
Sub 查找姓名对年龄()
Dim Mrow As Integer
Mrow = Range("A:A").Find(Range("F1")).Row
Range("F2") = Range("C" & Mrow)
End Sub
Sub 使用工作表函数查找姓名对年龄()
Range("F2") = Application.VLookup(Range("F1"), Range("A:C"), 3, 0)
End Sub