如何根据Excel下拉列表中的选择快速跳转到相邻的单元格？

您是否曾经想到过根据Excel下拉列表中的选择跳转到相邻的单元格？ 例如，在这里，我在单元格C1中有一个下拉列表，其中包含工作日名称，A列是日期列表，B列是时间列表。 现在，当我从下拉列表中选择一个工作日名称（例如，星期四）时，光标会跳到B5，它与A列中的星期四相邻。在Excel中，没有内置功能可以解决此任务，但是强大的VBA代码可以。

根据VBA下拉列表中的值跳转到相邻的单元格

---

根据VBA下拉列表中的值跳转到相邻的单元格

1.从下拉列表中选择要使用的日期，然后按 Alt + F11键 启用 Microsoft Visual Basic应用程序 窗口。

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是包含与下拉列表中的值匹配的值的列表，您可以根据需要更改此引用。