Este fórum está sendo desativado

[BITTENCURT]

Boa noite Amigos.

Anexo envio planilha com minha duvida, se alguém me ajudar, desde já agradeço.

No aguardo

Aparecido Bittencurt

[osvaldomp]

Se você quiser experimentar uma solução via macro, então Instale uma cópia do código abaixo em um módulo comum, assim:
1. copie o código daqui
2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA
3. no menu do editor / Inserir / Módulo
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar

para rodar o código:
6. tecle 'Alt+F8' / selecione a macro correspondente / Executar, ou insira um botão na planilha e vincule-o à macro ou vincule-a a um atalho de teclado (Alt+F8 / Opções).

Essas três opções para rodar o código podem ser implantadas isoladamente ou em conjunto.

Código: Selecionar todos

Sub SubstituiNúmeroPorEndereço()
 Dim c As Range
  For Each c In Range("B4:AE4,B5:U5")
   Range("B7:AE26").Replace c.Value, "=" & c.Address(0, 0), xlWhole
  Next c
End Sub

[BITTENCURT]

Excelente osvaldomp, era isso mesmo que precisava.

Muito obg e tenha uma boa noite.