Ir ao conteúdo

Excel Concatenar valores de uma planilha em outra


Ir à solução Resolvido por OreiaG,

Posts recomendados

Postado

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.

  • Solução
Postado

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

 

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!