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

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

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！