Como copiar o endereço da célula atual para outro local no Excel?

No Excel, você pode copiar o conteúdo da célula atual facilmente com os atalhos ou menu de contexto, mas como você poderia copiar o endereço da célula atual para outro local?

Copiar endereço de célula atual

Copie o endereço da célula atual e cole com VBA

---

Copiar endereço de célula atual

Aqui está uma fórmula que pode obter o endereço da célula atual no Excel.

Selecione uma célula na qual você colocará o endereço da célula, digite esta fórmula =ADDRESS(ROW(),COLUMN()), então o endereço da célula atual será exibido.

Então aperte Ctrl + C para copiá-lo e clique com o botão direito em uma célula para selecionar colá-la como valor.

---

Copie o endereço da célula atual e cole com VBA

Aqui está o código VBA que pode copiar o endereço da célula e depois colá-lo em outra célula.

1. Pressione Alt + F11 chaves para habilitar o Microsoft Visual Basic for Applications janela.

2. Clique Insert > Modulee cole o código abaixo no script.

VBA: Copie e cole o endereço da célula

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. Pressione F5 , uma caixa de diálogo aparecerá para selecionar a célula cujo endereço você deseja copiar.

4. Clique OK, selecione uma célula para colar o endereço da célula.

5. Clique OK.