如何将当前单元格地址复制到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.