Question

excel单元格输入姓名，便自动跳转显示该姓名的那一行信息

在g2栏输入姓名，便自动跳转显示的那一行信息姓名我都录入在B5开始之后栏里，谢谢

Answer 1

提供一种以公式解决的方法，此方法的好处是不需要降低表格的安全性去启用宏，但就要多点一下鼠标。    在G2输入完名字后，再用鼠标点一下G3单元格的“跳转”二字就能自动跳到所要查找的行了。

G3数组公式，输入完成后不要直接回车，要按三键  CTRL+SHIFT+回车  结束。

=HYPERLINK("#B"&MATCH(SUBSTITUTE(G2," ",),SUBSTITUTE(B1:B999," ",),),"跳转")

建议表格中的姓名中不要用空格，这对于以后的数据处理可能会带来一定的麻烦，如果名字中没有空格，G3公式可以精简为这样：

=HYPERLINK("#B"&MATCH(G2,B:B,),"跳转")

我把文件传上来，请点击这回答右下角绿色的“点击下载”按钮，下载文件看看效果。

Answer 2

在excel里面按alt+f11，打开vbe界面，双击左边你需要实现功能的工作表名字，在右边弹出的窗口里输入：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$G$2" Then Exit Sub
Dim rng As Range
Set rng = Range("b:b").Find(what:=Range("g2").Value, lookat:=xlWhole)
If Not rng Is Nothing Then rng.Select Else MsgBox ("查无此数据")
End Sub

不过有几点要注意：这个是搜全名用的，如果你只输入一个字是不会跳转的。

另外我不知道姓名那列你是分散对其还是加空格了，如果是空格最好全部去掉吧，或者你在搜索的时候也输入同样的空格……

Answer 3

用VBA来解决这个问题

Private Sub Worksheet_Change(ByVal Target As Range)
 
  If Target.Address = "$G$2" Then
  m = Application.Match(Target, Range("b1:b100"), flase)
  Cells(m, 2).Select
  End If
 
End Sub

追问

我的电脑2003怎么打不开那个文件 wps能打开 但是wps是不是没有vba的编辑窗口 这怎么解决

追答

wps没有VBA编辑器,

下载2010版的office