Concatenar diversos valores dinâmicos usando a fórmula 'INDIRETO'

Question

Olá a todos! 

Procurei a resposta e não encontrei, se puderem me ajudar agradeço muito 😁😁.  Tenho um script que atualiza o valor das células da coluna 'A' com a referência de outras células que devem ser concatenadas na coluna 'H'. Porém a fórmula 'INDIRETO' só funciona com uma referência, quando tento usar ela com o valor 'A2&B2&C2' ela não funciona.O que preciso é: somente concatenar diversos valores (dinâmicos) na coluna 'H'. Deixei uma planilha de exemplo compartilhada no OneDrive explicando o que preciso fazer, agradeço novamente muito obrigado!

https://1drv.ms/x/s!ArsrKSB6a_HjgYFyaXeNkBcN9N-MgQ?e=TAaHtO

Answer 1

Olá, tudo bem?

Se você usa o Microsoft 365 e no seu Excel você instalou as funções: LET, MAP, LAMBDA, UNIRTEXTO, então você pode usar a seguinte fórmula.

=LET(

ref; FILTROXML("<x><y>"&SUBSTITUIR(UNIRTEXTO("&";;A2);"&";"</y><y>")&"</y></x>";"//y");

SEERRO(UNIRTEXTO(" "; ; MAP(ref; LAMBDA(ref; INDIRETO(ref)))); "")

)

Se a resposta te auxiliou, não deixe por favor de "Marcar Como Resposta", por que a mesma poderá ajudar outros amigos com a mesma dúvida ou dúvidas semelhantes, obrigado!

At.te

Answer 2

Bom dia Orlando,

Em primeiro lugar, obrigado por marcar minha resposta. Abaixo está uma fórmula mais simples e mais curta do que a fórmula anterior. Espero que você veja este novo post.

=UNIRTEXTO(" "; ; MAP(TEXTSPLIT(A2; "&"); LAMBDA(a; TEXTSPLIT(INDIRETO(a); "&"))))

Atenciosamente.

Answer 3

IlirU sua resposta também deu certo, agradeço. As duas alternativas funcionam perfeitamente

Answer 4

Muito obrigado Dio! Deu certo, agradeço novamente

Answer 5

Olá

Bem vindo à Comunidade Microsoft 365 e Office

Tudo bem, Orlando? Você mencionou que está tentando usar a função INDIRETO, mas ela não está funcionando para a concatenação de múltiplas células. Uma alternativa é usar a função CONCATENAR em VBA (Visual Basic for Applications) para alcançar o resultado desejado.

Aqui está um exemplo de como você pode criar uma macro para concatenar os valores das células A2, B2 e C2 na coluna H2:

	Sub ConcatenarValores() Dim ws As Worksheet Dim valorA As String Dim valorB As String Dim valorC As String Dim valorConcatenado As String ' Defina a planilha de trabalho onde os valores serão concatenados Set ws = ThisWorkbook.Sheets("Nome_da_Sua_Planilha") ' Obtenha os valores das células A2, B2 e C2 valorA = ws.Range("A2").Value valorB = ws.Range("B2").Value valorC = ws.Range("C2").Value ' Concatene os valores valorConcatenado = valorA & valorB & valorC ' Atualize o valor da célula H2 com o valor concatenado ws.Range("H2").Value = valorConcatenadoEnd Sub	<br>	---

Você pode ajustar esse código para se adequar às suas necessidades. Por exemplo, se você deseja concatenar os valores em outras células ou em várias linhas, pode alterar as referências de células e loops de acordo. Certifique-se de substituir "Nome_da_Sua_Planilha" pelo nome real da planilha em que você deseja realizar a concatenação. Além disso, lembre-se de habilitar as macros no seu arquivo do Excel antes de executar a macro.