¿Cómo copiar la dirección de la celda actual a otra ubicación en Excel?

En Excel, puede copiar el contenido de la celda actual fácilmente con los accesos directos o el menú contextual, pero ¿cómo podría copiar la dirección de la celda actual a otra ubicación?

Copiar la dirección de la celda actual

Copie la dirección de celda actual y péguela con VBA

---

Copiar la dirección de la celda actual

Aquí hay una fórmula que puede obtener la dirección de celda actual en Excel.

Seleccione una celda en la que colocará la dirección de la celda, escriba esta fórmula =ADDRESS(ROW(),COLUMN()), se muestra la dirección de celda actual.

Entonces presione Ctrl + C para copiarlo y haga clic derecho en una celda para seleccionar pegarlo como valor.

---

Copie la dirección de celda actual y péguela con VBA

Aquí está el código VBA que puede copiar la dirección de la celda y luego pegarla en otra celda.

1. Prensa Alt + F11 claves para habilitar el Microsoft Visual Basic for Applications ventana.

2. Hacer clic en Insert > Moduley pegue el siguiente código en el script.

VBA: copiar y pegar la dirección de la celda

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. Prensa F5 , aparece un cuadro de diálogo para seleccionar la celda en la que desea copiar su dirección.

4. Hacer clic en OK, seleccione una celda para pegar la dirección de la celda.

5. Hacer clic en OK.