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

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

Copiar o endereço da célula atual

Copiar o endereço da célula atual e colar com VBA

Copiar o endereço da célula atual

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

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

Em seguida, pressione Ctrl + C para copiá-lo e clique com o botão direito em uma célula para selecionar colá-lo como valor.

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!

Copiar o endereço da célula atual e colar com VBA

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

1. Pressione as teclas Alt + F11 para habilitar a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o código abaixo no script.

VBA: Copiar e colar 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 aparece 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.