如何根據Excel下拉列表中的選擇快速跳轉到相鄰的單元格？

您是否曾經想到過根據Excel下拉列表中的選擇跳轉到相鄰的單元格？ 例如，在這裡，我在單元格C1中有一個下拉列表，其中包含工作日名稱，A列是日期列表，B列是時間列表。 現在，當我從下拉列表中選擇一個工作日名稱（例如，星期四）時，光標會跳到B5，它與A列中的星期四相鄰。在Excel中，沒有內置功能可以解決此任務，但是強大的VBA代碼可以。

根據VBA下拉列表中的值跳轉到相鄰的單元格

---

根據VBA下拉列表中的值跳轉到相鄰的單元格

1.從下拉列表中選擇要使用的日期，然後按 Alt + F11鍵 啟用 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊，將以下代碼粘貼到 模塊.

VBA：根據值跳轉到相鄰的單元格

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20161221
    If Target.Address <> [C1].Address Then
       Exit Sub
    Else
       JumpToCell

    End If
End Sub

Sub JumpToCell()
    Dim xRg, yRg As Range
    Dim strAddress As String
    strAddress = ""
    Set yRg = Range("A2:A8")
    For Each xRg In yRg
    'MsgBox Cell.Value
        If xRg.Value = ActiveCell.Value Then
           strAddress = xRg.Address
        End If
    Next
    If strAddress = "" Then
       MsgBox "The Day You Selected in Cell D4 Was Not Found On " & ActiveSheet.Name, _
        vbInformation, "Kutools for Excel"
       Exit Sub
    Else
       Range(strAddress).Offset(0, 1).Select
    End If
End Sub

3。 按 F5 鍵，然後光標會根據下拉列表中的值跳到相鄰的單元格。

備註：

在VBA代碼中，A2：A8是包含與下拉列表中的值匹配的值的列表，您可以根據需要更改此引用。