得理不饶人:
给按钮指定这个宏。具体跳转到哪个单元格你自己修改下,加个offset偏移就好了Sub定位()DimSAsStringIfSelection.Count>1ThenMsgBox"只能选择一个!":ExitSubIfSelection.Text=""ThenMsgBox"不能选择空单元格!":ExitSubS=Selection.TextIfWorksheets("sheet2").Cells.Find(S,lookat:=xlWhole)IsNothingThenMsgBox"没有找到该信息!"E....