Преобразование данных из различного числа ячеек столбца B в одну строку, разделенную запятой, на основе данных столбца A

Question

Мне нужно переформатировать большой экспорт изображений из Shopify.

Они были экспортированы в следующем формате:

 A        B
SKU | img source
1755  http://img1.jpg
      http://img2.jpg
      http://img3.jpg
1756  http://img1.jpg 
      http://img2.jpg
1757  http://img1.jpg

У каждого sku есть различное количество изображений.Мне нужно, чтобы все URL были в списке, разделенном запятыми, в одной строке (так же, как в sku), а затем всякий раз, когда в столбце A появляется новое значение, он должен перезапускаться с соответствующим значением столбца B в качестве первого в спискеи так далее и тому подобное.

Answer 1

Для записи, вот макрос, который работал

Sub Delimit()
rownum = 3 'update to the correct starting row
outputRow = 1 'starting row for the output table
lastrow = Cells(Rows.Count, "B").End(xlUp).Row
While rownum <= lastrow
    SKU = Cells(rownum, "A")
    delimited = Cells(rownum, "B")
    rownum = rownum + 1
    While (Cells(rownum, "A") = SKU Or Len(Cells(rownum, "A")) = 0) And rownum <= lastrow
        delimited = delimited & "," & Cells(rownum, "B")
        rownum = rownum + 1
    Wend
    Cells(outputRow, "D") = SKU           'change "D" to appropriate output column
    Cells(outputRow, "E") = delimited     'change "E" to appropriate output column
    outputRow = outputRow + 1
Wend
End Sub