Ir ao conteúdo
  • Cadastre-se

Excel Concatenar valores de uma planilha em outra


Ir à solução Resolvido por OreiaG,

Posts recomendados

Boa tarde, poderiam por favor me ajudar a preencher a coluna B (da Planilha B) através de vba?

 

Planilha A:

image.png.a38e5c4dd336efa30996cffbe9bef6a9.png

 

Planilha B (com os NÚMEROS unificados):

image.png.0f822e1e952d442346d3ff7d673d2945.png

 

Seria exibir a quais NOMES pertencem os NÚMEROS da Planilha B, através das informações da Planilha A, separando eles com 2 "espaços", por exemplo.

Link para o comentário
Compartilhar em outros sites

  • Solução

Olá, @MateusAC3

Veja se este código ajuda.

obs. nas próximas postagens anexe o próprio arquivo Excel e não imagens.

 

Sub NúmerosXNomes()
 Dim r1 As Range, r2 As Range, rng1 As Range, rng2 As Range
  Set rng1 = Sheets("Planilha A").Range("C2:C" & Sheets("Planilha A").Cells(Rows.Count, 3).End(3).Row)
  Set rng2 = Sheets("Planilha B").Range("A2:A" & Sheets("Planilha B").Cells(Rows.Count, 1).End(3).Row)
  rng2.Offset(, 1).Value = ""
  For Each r1 In rng1
   Set r2 = rng2.Find(r1.Value)
   If Not r2 Is Nothing Then r2.Offset(, 1).Value = Trim(r2.Offset(, 1).Value & "  " & r1.Offset(, -2).Value)
  Next r1
End Sub

 

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!