Excel Proc em linhas separadas e unificar em unica linha

enrolado_virus · 11 de outubro de 2019

Olá, bom dia a todos!

Tenho uma base de dados extensa, e preciso de uma ajuda para executar uma fórmula com um PROC com dados que estão separados em várias linhas, para que fique unificado estes dados em uma única linha e separado por virgula.

Em anexo estou enviando a planilha para uma análise e melhor entendimento

Desde já agradeço a ajuda.

Att

OEMM.xlsx

11 de outubro de 2019

Segue uma solução via macro, se for aceitável.

Instale uma cópia do código abaixo em um módulo comum, assim:
1. copie o código daqui
2. a partir de qualquer planilha 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).

Sub ConcatenaDados()
 Dim cod As Long, k As Long, v As Long, x As Long, br As String
  If Sheets("SKUS").[A3] <> "" Then Sheets("SKUS").Range("A2:B" & Sheets("SKUS").Cells(Rows.Count, 1).End(3).Row).Value = ""
  With Sheets("OEMS")
   For k = 2 To .Cells(Rows.Count, 1).End(3).Row
    v = Application.CountIf(.[A:A], .Cells(k, 1))
     Sheets("SKUS").Cells(Rows.Count, 1).End(3)(2) = .Cells(k, 1)
      For x = 0 To v - 1
       br = br & .Cells(k + x, 2) & " " & .Cells(k + x, 3) & IIf(x < v - 1, ", ", "")
      Next x
     Sheets("SKUS").Cells(Rows.Count, 2).End(3)(2) = br: br = "": k = k + v - 1
   Next k
  End With
End Sub