如何自動將光標移動到Excel中的特定單元格？

有時，出於某些目的，您可能需要跳到特定的單元格。本文將詳細介紹將光標移動到特定單元格的方法。

使用“名稱”框將光標自動移動到特定的單元格
 使用VBA代碼將光標自動移動到特定單元格

使用“名稱”框將光標自動移動到特定的單元格

名稱框可以幫助您輕鬆地將光標移動到Excel中的特定單元格。

1。在裡面姓名框，輸入您要跳轉到的特定單元格引用，然後按 Enter 鍵。

然後，光標立即移動到指定的單元格。

備註：如果需要跳轉到另一個工作表中的指定單元格，例如，跳轉到Sheet30的單元格C2，請鍵入 Sheet2！C30 進入“名稱”框，然後按Enter鍵。

使用VBA代碼將光標自動移動到特定單元格

以下VBA代碼可幫助您立即移動到Excel中的特定單元格。

1。按其他 + F11 同時打開 Microsoft Visual Basic for Applications 窗口。

2。在裡面 Microsoft Visual Basic for Applications 窗口，雙擊T他的工作簿在左窗格中打開ThisWorkbook（代碼）窗口。然後將下面的VBA代碼複製並粘貼到窗口中。

VBA代碼：移至下一行的開頭或開頭以進行數據輸入

Sub jumpnext()
    Range("F100").Select
End Sub

備註：在代碼中，F100是您將跳轉到的指定單元格。您可以根據需要進行更改。

3。按 F5 鍵運行代碼，然後光標立即移動到當前工作表中的單元格F100。

最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題，並將你的生產力提高了 80%

重用: 快速插入 複雜的公式，圖表 以及您以前使用過的任何東西；加密單元帶密碼創建郵件列表並發送電子郵件...
超級公式欄（輕鬆編輯多行文本和公式）；閱讀版式（輕鬆讀取和編輯大量單元格）；粘貼到過濾範圍...
合併單元格/行/列不會丟失數據；拆分單元格內容；合併重複的行/列...防止細胞重複；比較範圍...
選擇重複或唯一行; 選擇空白行（所有單元格都是空的）；超級查找和模糊查找在許多工作簿中；隨機選擇...
確切的副本多個單元格，無需更改公式參考；自動創建參考到多張紙；插入項目符號，複選框等...
提取文字，添加文本，按位置刪除，刪除空間; 創建和打印分頁小計；在單元格內容和註釋之間轉換...
超級濾鏡（將過濾方案保存並應用於其他工作表）；高級排序按月/週/日，頻率及更多；特殊過濾器用粗體，斜體...
結合工作簿和工作表; 根據關鍵列合併表；將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。在您的企業或組織中輕鬆部署。完整功能 30 天免費試用。 60 天退款保證。

閱讀更多... 免費下載... 採購...

Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆

在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！

閱讀更多... 免費下載... 採購...

留言 (15)

還沒有評分。成為第一位評論！

短劍的一種

大約4年前

#26075

網站主持人對此評論進行了最小化

我想製作一個宏，逐步從一個單元格移動到下一個單元格。

史蒂夫

大約3年前

#28689

網站主持人對此評論進行了最小化

這很有幫助，謝謝。但是我想有一個公式作為“範圍”函數的參數。這是允許的嗎？我想做的是讓用戶在對話框中輸入一個數字，然後在一系列單元格中搜索該數字的第一次出現，然後將光標跳轉到該單元格......

水晶史蒂夫

大約3年前

#28690

網站主持人對此評論進行了最小化

您好史蒂夫，
抱歉不能幫你。

即時報告

詹姆斯

大約2年前

#33714

網站主持人對此評論進行了最小化

將數據輸入 E6 後，如何讓光標從單元格 E8 移動到 F6？我希望光標忽略 E 列中的所有其他行並立即跳轉到 E6。

雅各書

大約2年前

#33715

網站主持人對此評論進行了最小化

對不起，我的意思是輸入“立即跳轉到 F8”

水晶雅各書

大約2年前

#33716

網站主持人對此評論進行了最小化

嗨詹姆斯，
請嘗試以下代碼。數據輸入 E6 後，按 Tab 鍵或 Enter 鍵，光標會立即跳轉到 F8。

Private Sub Worksheet_Change（ByVal Target As Range）

'更新者 Extendoffice 2020087

將 tabArray 調暗為變體

昏暗的我只要

tabArray = Array("E6", "F8")

Application.ScreenUpdating = False

對於 i = LBound(tabArray) 到 UBound(tabArray)

如果 tabArray(i) = Target.Address(0, 0) 那麼

如果 i = UBound(tabArray) 那麼

Me.Range(tabArray(LBound(tabArray)))).Select

其他

Me.Range(tabArray(i + 1)).選擇

如果結束

如果結束

接下來，我

Application.ScreenUpdating = True

END SUB

即時報告

約翰福音

大約2年前

#33898

網站主持人對此評論進行了最小化

是否可以在不按鍵盤上的鍵的情況下移動活動單元格？例如，我可以讓單元格在其上方的單元格被填滿後立即向下移動嗎？我正在尋找在填充單元格時運行的函數或 VBA。一旦 A3 中有字符，是否有 VBA 將活動單元格向下移動到 A4？

水晶約翰福音

大約2年前

#33899

網站主持人對此評論進行了最小化

你好，約翰，
我對你的問題感到困惑。我們如何知道單元格是否已完成編輯？

即時報告

沙哈德

大約 1 年前

#35248

網站主持人對此評論進行了最小化

您沒有為代碼簽名 F5，按 F5 將如何運行？

Nelson

大約8個月前

#38119

網站主持人對此評論進行了最小化

Bagiaimana mengisi 文本框 pada 表格 dengan memilih 數據 di 單元格/表格 yg dipilih dgn kursor ？

水晶 Nelson

大約8個月前

#38237

網站主持人對此評論進行了最小化

嗨，萊爾森，
對不起，我不明白你的意思。您介意提供數據的屏幕截圖嗎？或者嘗試更具體地說明您的問題。帶來不便敬請諒解。

即時報告

安迪·科格倫

大約6個月前

#38838

網站主持人對此評論進行了最小化

嗨，

您能幫忙解決以下 VBA 代碼請求嗎？

工作表 1 被命名為“主資產”，另外 100 個工作表被命名為“0001...0002...0003....0004 ~ 0100”

在每張“0001 ~ 0100”中的任何一張
我希望能夠選擇已經包含文本“返回主資產”的單元格 A4，然後按 Enter，以自動跳回“主資產”中的單元格 J3

在此先感謝。
安迪C.

水晶安迪·科格倫

大約6個月前

#38919

網站主持人對此評論進行了最小化

嗨安迪科格蘭，
我現在找不到用回車鍵觸發宏的方法。以下 VBA 代碼可以同時在所有工作表的 A4 中插入相同的超鏈接。點擊A4中的超鏈接後，會跳轉到“Master Asset”中的J3。請試一試。

Sub AddHyperlinks()
'Updated by Extendoffice 20220715
    Dim xRg, yRg As Range
    Set xRg = Worksheets("Master Asset").Range("J3")
    xStr = xRg.Address(External:=True)
    For Each Sh In Worksheets
        If Sh.Name <> "Sh.Name" Then
            Set yRg = Sh.Range("A4")
            yRg.Hyperlinks.Add anchor:=yRg, Address:="", SubAddress:=xStr, TextToDisplay:="Back to Master Asset"
        End If
    Next
End Sub

即時報告

阿文德

大約3週前

#42412

網站主持人對此評論進行了最小化

子跳轉next()
範圍（“F100”）。選擇
END SUB

我必須做些什麼才能使此代碼可以同時在工作簿的所有工作表上使用。

問候，

水晶阿文德

大約2週前

#42444

網站主持人對此評論進行了最小化

嗨阿溫德，

下面的 VBA 代碼可以幫你一個忙。請試一試。謝謝你。
注意：您需要將 VBA 代碼放在 本工作簿（代碼） 編輯器。

Sub jumpnext()
'Updated by Extendoffice 20230109
Set CurrWS = ActiveSheet
    For Each WS In ThisWorkbook.Worksheets
    WS.Activate
        WS.Range("F100").Select
    Next
    CurrWS.Activate
End Sub

https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/select-same-cell.png

即時報告

這裡還沒有評論

留下你的意見

以訪客身份發帖

登入

名稱（必填）

電子郵件（必填）

評價此帖子：

重設

0 字符

我同意附帶條約