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