发布网友 发布时间:2022-04-22 02:13
共2个回答
热心网友 时间:2023-07-05 03:55
Sub a()
Dim x, y
x = Application.InputBox("输入", "输入要查找的值", "赵大宝")
If x = False Then Exit Sub
y = Range("c1:c10000").Find(x).Row
MsgBox Range("c" & y).Offset(0, -2).Value & Range("c" & y).Offset(0, -1).Value
End Sub
只能用宏!见附件!
热心网友 时间:2023-07-05 03:55
建议一个对应表,
再使用VLOOKUP公式