提示:其他語言是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天免費試用。 立即下載免費試用版!

Office選項卡在Office中啟用選項卡式編輯和瀏覽,使您的工作更輕鬆......
Kutools for Excel解決了您的大多數問題,並使您的生產率提高了80%
  • 重用任何東西: 將最常用或最複雜的公式,圖表和其他任何內容添加到您的收藏夾中,並在將來快速重複使用它們。
  • 超過20文本功能: 從文本字符串中提取數字; 提取或刪除部分文字; 將數字和貨幣轉換為英文單詞。
  • 合併工具:將多個工作簿和工作表合二為一; 合併多個單元格/行/列,而不會丟失數據; 合併重複的行和總和。
  • 拆分工具:根據價值將數據分割成多個工作表; 一本工作簿可轉換為多個Excel,PDF或CSV文件; 一列到多列。
  • 粘貼跳過 隱藏/過濾行; 數和總和 按背景顏色; 將個性化電子郵件批量發送給多個收件人。
  • 超級過濾器: 創建高級過濾方案並應用於任何工作表; 分類 按週,日,頻率等; 過濾 通過大膽,公式,評論......
  • 超過300強大的功能; 與Office 2007-2019和365一起使用; 支持所有語言; 在您的企業或組織中輕鬆部署。

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


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

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選項卡


Kutools for Excel解決了您的大多數問題,並使您的生產率提高了80%

  • 重用: 快速插入 複雜的公式,圖表 以及你以前用過的任何東西; 加密單元格 密碼; 創建郵件列表 並發送電子郵件...
  • 超級方程式酒吧 (輕鬆編輯多行文字和公式); 閱讀佈局 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不丟失數據; 分裂細胞含量; 組合重複的行/列...防止重複的細胞; 比較範圍...
  • 選擇複製或唯一 行; 選擇空行 (所有細胞都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇......
  • 精確複製 多個單元格而不更改公式參考; 自動創建參考 多張表; 插入項目符號,複選框等等......
  • 提取文本,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級過濾器 (將過濾方案保存並應用到其他工作表); 高級排序 按月/週/日,頻率等; 特殊過濾器 用粗體,斜體......
  • 結合工作簿和工作表; 根據鍵列合併表; 將數據拆分為多個表格; 批量轉換xls,xlsx和PDF...
  • 超過300強大的功能。 支持Office / Excel 2007-2019和365。 支持所有語言。 在您的企業或組織中輕鬆部署。 全功能30天免費試用。
kte tab 201905

Office選項卡為Office提供選項卡式界面,使您的工作更輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,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 · 7 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 · 2 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 · 2 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