如何根據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)UpdatebyExtendoffice20161221If Target.Address <> [C1].Address ThenExit SubElseJumpToCellEnd IfEnd SubSub JumpToCell()Dim xRg, yRg As RangeDim strAddress As StringstrAddress = ""Set yRg = Range("A2:A8")For Each xRg In yRgMsgBox Cell.ValueIf xRg.Value = ActiveCell.Value ThenstrAddress = xRg.AddressEnd IfNextIf strAddress = "" ThenMsgBox "The Day You Selected in Cell D4 Was Not Found On " & ActiveSheet.Name, _vbInformation, "Kutools for Excel"Exit SubElseRange(strAddress).Offset(0, 1).SelectEnd IfEnd SubCopy

3。 按 F5

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

請注意：

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

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復雜的任務并像專業(yè)人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel