提示:其他語言是Google翻譯的。 你可以訪問 English 版本。
登入
x
or
x
x
註冊
x

or

如何獲取在Excel中的活動單元格的地址?

在使用Microsoft Excel時,您可以輕鬆地獲取名稱框中當前所選單元格的位置,該名稱框列在公式欄左側。 但是,如果該單元格已命名,則無法根據名稱框中的顯示來檢查其位置。 如果你想直接顯示活動單元格的完整地址,或者在指定的單元格中顯示活動單元格的地址,你會怎麼做? 在本教程中,我們將向您展示如何使用公式和VBA方法輕鬆獲取活動單元格的地址。

使用公式獲取活動單元格的地址

用VBA代碼獲取活動單元格的地址

用VBA代碼顯示指定單元格中活動單元格的地址


將多個工作表/工作簿合併到一個工作表/工作簿中:

將多個工作表或工作簿合併到一個工作表或工作簿中可能是您​​日常工作中的一項重大任務。 但是,如果你有 Kutools for Excel,其強大的實用性 - 結合 可以幫助您將多個工作表,工作簿快速合併到一個工作表或工作簿中。 立即下載Kutools for Excel的全功能60天免費試用版!

Kutools for Excel:比200方便的Excel加載項,可以在60天免費試用。 立即下載免費試用版!


使用公式獲取活動單元格的地址


在本節中,我們將為您提供一個輕鬆獲取活動單元格地址的公式。

1。 選擇一個單元格使其處於活動狀態。

2。 複製並粘貼公式 = ADDRESS(ROW(),COLUMN()) 進入單元格然後按下 輸入 鍵。

然後您可以看到活動單元格的地址立即顯示在單元格中。


用VBA代碼獲取活動單元格的地址

您還可以使用VBA代碼獲取活動單元格的地址。 請做如下。

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

2。 在裡面 Microsoft Visual Basic for Applications 窗口中,雙擊左窗格中當前使用工作表的名稱以打開代碼編輯器,然後將下面的VBA代碼複製並粘貼到代碼編輯器中。

VBA代碼:獲取活動單元格的地址

Sub selectRange()
	MsgBox ActiveCell.Address
End Sub

3。 然後點擊 按鈕來運行代碼。

4。 然後會彈出一個對話框,其中列出了活動單元格的地址。


用VBA代碼顯示指定單元格中活動單元格的地址

在另一種情況下,您希望活動單元格的地址顯示在指定的單元格中。 每當您從一個單元格移動到另一個單元格時,單元格地址將自動更改並顯示在指定的單元格中。 請做如下。

1。 請打開 Microsoft Visual Basic for Applications 按下窗口 其他 + F11 在同一時間。

2。 雙擊左窗格中的工作表名稱以打開代碼編輯器,然後將以下代碼複製並粘貼到其中。

VBA代碼:顯示指定單元格中活動單元格的地址

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
	Range("A1").Value = ActiveCell.Address
End Sub

注意:A1是您想要放置活動單元格地址的單元格,您可以根據自己的需要將其更改為指定的單元格。

3。 然後點擊 文件 > 關閉並返回到Microsoft Excel 退出 Microsoft Visual Basic for Applications 窗口。

您可以在單元格A1上看到活動單元格顯示的地址,並且地址將根據活動單元格的更改自動更改。 看截圖:


Office Tab - 在Excel中選項卡式瀏覽,編輯和管理工作簿:

Office選項卡將Web瀏覽器(如Google Chrome,Internet Explorer新版本和Firefox)中顯示的選項卡界面帶到Microsoft Excel。 它將是一個節省時間的工具,在您的工作中無可比擬。 見下面的演示:

點擊免費試用Office Tab!

Excel的Office選項卡



推薦的Excel生產力工具

Kutools for Excel幫助您提前完成工作,並從人群中脫穎而出

  • 超過300強大的高級功能,專為1500工作場景設計,通過70%提高生產力,讓您有更多時間照顧家庭和享受生活。
  • 不再需要記憶公式和VBA代碼,從現在起讓你的大腦休息一下。
  • 成為3分鐘的Excel專家,複雜和重複的操作可以在幾秒鐘內完成,
  • 每天減少成千上萬的鍵盤和鼠標操作,現在告別職業病。
  • 110,000高效人才和300 +世界知名公司的選擇。
  • 60-day full功能免費試用。 60天退款保證。 2多年的免費升級和支持。

將選項卡式瀏覽和編輯帶到Microsoft Office,遠比瀏覽器的選項卡強大

  • Office選項卡專為Word,Excel,PowerPoint和其他Office應用程序設計:Publisher,Access,Visio和Project。
  • 在同一窗口的新選項卡中打開並創建多個文檔,而不是在新窗口中。
  • 通過50%提高您的工作效率,每天為您減少數百次鼠標點擊!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    RichEO · 2 months ago
    The first example does not display the address of the active cell but of the cell containing the formula. If you were to select a different cell the address would not change.
    Actually this is probably more useful information than gathering the active cell's address and harder to find if you need it. I was looking how to do this using VBA and could not find it for a while so I will include it here:

    Application.Caller.Address

    That will give you the address of the cell calling the function and not the active cell, useful for relative references.
  • To post as a guest, your comment is unpublished.
    Bill Schipper · 1 years ago
    Hello,

    Displaying the active cell reference is helpful. But how do I actually use that value? I'm reading exams, and have six columns (of which two will get filled in). The student name is in column A; I can extract the family name: LEFT(A7,(FIND(",")A7)-1))) [where A7 is the current address]. I can use the code for displaying the current active cell address provided above:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("A1").Value = ActiveCell.Address
    End Sub

    But what I really want to do is have the cursor being somewhere in the current row (C3:H3), and extract the family name of the current student. Example:

    A B C D E F G H
    1 Name ID 1 2 3 4 5 6

    2 Smith, John 1234567

    When the active cell is between C1 and H1, I want to extract the student name from A2 ("Smith, John") [using LEFT(A2,(FIND(",")A2)-1)))], but with the values for the address supplied from the code above.

    Any suggestions would be welcome.


    Bill
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Bill,
      If you want to use the cell reference of active cell, please apply below VBA code.
      (The active cell reference will be displayed in cell A1. Then you can copy the cell reference directely in A1 or do other operations as you need.)

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      On Error Resume Next
      If (Target.Count = 1) And (Intersect(Target, Range("A1")) Is Nothing) Then
      Range("A1").Value = ActiveCell.Address
      End If
      End Sub