Como combinar valores de várias linhas em uma única linha com um separador de vírgula

0

Eu tenho um arquivo do Excel que lista SKUs de produtos em um URL e URLs de imagem do produto em outra coluna. Meu problema é que o arquivo tem várias linhas para o mesmo produto ...

...quandooCMSqueusoemminhalojasópodelerimportaçõescomoesta:

Eu faria isso manualmente, mas existem centenas de produtos, cada um com vários links de imagem. Basicamente, eu preciso ter apenas um SKU001 (SKU002, SKU003, etc.) e mesclar suas células de coluna B correspondentes em uma célula com todos os valores separados por uma vírgula. Existe alguma maneira de fazer isso?

    
por Etzer 02.06.2015 / 23:45

2 respostas

1

Digamos que temos dados em Folha1 . Os SKUs estão na coluna A e B podem conter quaisquer dados. Os SKUs são classificados:

AmacroaseguirproduzirádadosreorganizadosemFolha2:

SubReOrganizer()Dims1AsWorksheet,s2AsWorksheetDimNAsLong,iAsLong,KAsLongDimv1AsString,v2AsStringSets1=Sheets("Sheet1")
   Set s2 = Sheets("Sheet2")
   K = 1
   N = Cells(Rows.Count, "A").End(xlUp).Row
   v1 = s1.Cells(2, 1).Value
   v2 = s1.Cells(2, 2).Value

   For i = 3 To N
      vn1 = s1.Cells(i, 1).Value
      vn2 = s1.Cells(i, 2).Value
      If vn1 = v1 Then
         v2 = v2 & "," & vn2
      Else
         s2.Cells(K, 1) = v1
         s2.Cells(K, 2) = v2
         v1 = vn1
         v2 = vn2
         K = K + 1
      End If
   Next i

   s2.Cells(K, 1) = v1
   s2.Cells(K, 2) = v2

End Sub

    
por 03.06.2015 / 01:53
2

Acho que não tenho uma solução de macro

Quaisfiltros

no tipo C2 = IF (A2 = A1, C1 & "," & B2, B2)

Em seguida, digite D2 = COUNTIF (C3, B3)

E preencha uma linha abaixo da sua tabela

O C col concatena com a string acima se o mesmo produto, ou inicia uma nova cadeia se um novo produto

O D col encontra o final de uma cadeia (verificando se a linha abaixo é uma nova cadeia)

Por favor, tente isso e me diga se funciona:)

    
por 03.06.2015 / 13:47