5.這個時候，無須做額外的程式碼編寫，只需要按照上圖，把程式碼貼上上去就完成了。 為了方便大家的學習，下面，將程式碼貼到下文： Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Then If Sheet1.Cells(Target.Row, 1) <> "" Then For i = 1 To Sheet2.UsedRange.Rows.Count If Sheet2.Cells(i, 1).Value = Sheet1.Cells(Target.Row, 1).Value Then Sheet2.Activate Sheet2.Range("A" & i).Select End If Next i End If End If End Sub
1.下面看例項。
2.上圖中，在Sheet1中，A列的A3單元格，資料是“李四”；
3.看上圖，Sheet2中的A23單元格，內容也是“李四”； 現在，要做的是，在Sheet1中，點選A3中的“李四”，就會自動跳到Sheet2中的A23單元格。 可以這樣說，無論點選Sheet1A列中的任何一個單元格，只要在Sheet2中的A列，有與其值相同的，就自動跳到Sheet2的相應單元格； 方法是：右鍵點選“Sheet1”，在彈出的快捷選單中，點選“檢視程式碼”，如下圖。
4.之後，會彈出如下圖一個的VB程式碼編寫視窗。
5.這個時候，無須做額外的程式碼編寫，只需要按照上圖，把程式碼貼上上去就完成了。 為了方便大家的學習，下面，將程式碼貼到下文： Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Then If Sheet1.Cells(Target.Row, 1) <> "" Then For i = 1 To Sheet2.UsedRange.Rows.Count If Sheet2.Cells(i, 1).Value = Sheet1.Cells(Target.Row, 1).Value Then Sheet2.Activate Sheet2.Range("A" & i).Select End If Next i End If End If End Sub