养生 装修 购物 美食 感冒 便秘 营销 加盟 小吃 火锅 管理 创业 搭配 减肥 培训 旅游

点击EXCEL单元格自动跳到对应列值相同的单元格

时间:2024-10-03 10:48:51

在Excel中如何实现,点击Sheet1中的某列,如A列中的某个单元格,就会自动跳到Sheet2中对应的A列的,与此单元格内容相同的单元格?

方法/步骤

1、 这得使用VBA来实现,因为只有使用VBA最为简单,比任何函数都方便!   下面我们看实现吧!

点击EXCEL单元格自动跳到对应列值相同的单元格

2、上图中,在Sheet1中,A列的A3单元格,数据是“李四”;

点击EXCEL单元格自动跳到对应列值相同的单元格

3、看上图,Sheet2中的A23单元格,内容也是“李四”;   现在,我们要做的是,在S丝群闻栝heet1中,点击A3中的高酿眚郁“李四”,就会自动跳到Sheet2中的A23单元格!   可以这样说,无论点击Sheet1A列中的任何一个单元格,只要在Sheet2中的A列,有与其值相同的,就自动跳到Sheet2的相应单元格;   方法是:右键点击“Sheet1”,在弹出的快捷菜单中,点击“查看代码”,如下图!

点击EXCEL单元格自动跳到对应列值相同的单元格

4、之后,会弹出如下图一个的VB代码编写窗口!

点击EXCEL单元格自动跳到对应列值相同的单元格

5、这个时候,您无须做额箍鲂遥哒外的代码编写,只需要按照上图,把代码粘贴上去就完成了。   为了方便大家的学习,下面,俺瓴烊椹舟将代码贴到下文:   PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)  IfTarget.Column=1Then  IfSheet1.Cells(Target.Row,1)<>""Then  Fori=1ToSheet2.UsedRange.Rows.Count  IfSheet2.Cells(i,1).Value=Sheet1.Cells(Target.Row,1).ValueThen  Sheet2.Activate  Sheet2.Range("A"&i).Select  EndIf  Nexti  EndIf  EndIf  EndSub   本实例到此结束!

© 一点知识