如何在 Excel 中將當前單元格地址複製到其他位置？

通常，在 Excel 中，我們可以很容易地使用複製和貼上功能複製單元格的內容。但是您是否嘗試過從另一個單元格複製一個單元格的單元格地址？我們可以使用本文中提到的步驟。即使我們可以簡單地使用公式來完成任務，但有時我們需要使用 VBA 應用程式的一些有趣方法。

閱讀本教程，瞭解如何使用 VBA 應用程式將當前單元格地址複製到 Excel 中的其他位置。我們可以使用本教程中提到的 VB 程式碼將當前單元格地址複製到其他位置。

將當前單元格地址複製到 Excel 中的其他位置

在這裡，我們首先將開啟 VBA 應用程式，插入一個模組，最後執行程式碼以完成任務。讓我們看一下使用 VBA 應用程式將當前單元格地址複製到 Excel 中其他位置的簡單過程。

步驟 1

讓我們考慮一個新的 Excel 工作表，右鍵單擊工作表名稱並選擇“檢視程式碼”以開啟 VBA 應用程式。

右鍵單擊 > 檢視程式碼

然後，在 VBA 應用程式中，單擊“插入”並選擇“模組”，然後在文字框中鍵入以下程式程式碼，如下面的影像所示。

插入 > 模組

程式

Sub AddressCopy()
'Updated By Nirmal
    Dim xSRg As Range
    Dim xDRg As Range
    On Error Resume Next
    Set xSRg = Application.InputBox("Select cell(s) to copy its address:", "Copy cell address", Selection.Address, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Select a cell to paste:", "Copy cell address", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    xDRg(1).Value = xSRg.Address
End Sub