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

在Excel中，您可以使用快捷方式或上下文菜單輕鬆地複制當前單元格的內容，但是如何將當前單元格地址複製到其他位置？

複製當前單元格地址

複製當前單元格地址並粘貼到VBA

---

複製當前單元格地址

這是一個可以在Excel中獲取當前單元格地址的公式。

選擇一個要放置單元格地址的單元格，鍵入此公式 =ADDRESS(ROW(),COLUMN())，則顯示當前單元格地址。

然後按 Ctrl + C 複製它，然後右鍵單擊一個單元格以選擇將其粘貼為值。

---

複製當前單元格地址並粘貼到VBA

這是VBA代碼，可以復制單元格地址，然後將其粘貼到另一個單元格中。

1。 按 Alt + F11 啟用 Microsoft Visual Basic for Applications 窗口。

2。 點擊 Insert > Module，然後將以下代碼粘貼到腳本中。

VBA：複製和粘貼單元格地址

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

3。 按 F5 鍵，將彈出一個對話框，用於選擇要復制其地址的單元格。

4。 點擊 OK，選擇一個單元格以粘貼該單元格地址。

5。 點擊 OK.