Como copiar o endereço da célula atual para outra localização no Excel?
No Excel, pode copiar facilmente o conteúdo de Célula Atual com atalhos ou com o menu de contexto, mas como poderá copiar o endereço Célula Atual para outra localização？
Copiar endereço Célula Atual e colar com VBA
Copiar endereço Célula Atual
Eis uma fórmula que lhe permite obter o endereço da célula atual no Excel.
Selecione uma célula onde pretende exibir o endereço da própria célula, introduza a fórmula =ADDRESS(ROW(),COLUMN()) e o endereço da célula atual será apresentado.
Em seguida, prima Ctrl + C para copiar e clique com o botão direito do rato numa célula para colar como valor.
 |  |  |
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Copiar endereço Célula Atual e colar com VBA
Eis o código VBA que permite copiar o endereço de uma célula e colá-lo noutra.
1. Prima as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Clique em Insert > Module e cole o código seguinte no script.
VBA: Copiar e colar endereço de 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 Sub3. Prima a tecla F5. Surge uma caixa de diálogo para selecionar a célula cujo endereço pretende copiar.
4. Clique em OK e selecione uma célula para colar o endereço da célula.
5. Clique em OK.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos