Простенький макрос VBA

Формулировка задачи:

Привет всем, уважаемые знатоки! Уверен, что у вас это должно занять буквально несколько минут, потому что задача очень простая. В общем. Работа макроса происходит по 3м колонкам: по средней ищет совпадающие значения во 2м столбце, для найденных строк заполняет 3й столбик значениями ячеек из 1х столбцов группы совпавших значений через запятую, исключая значение ячейки 1го столбца заполняемой строки строки в которых во 2м столбце уникальные значения остаются неизменными начальный и конечный вариант изображены на прикреплённых картинках цветовые обозначения для наглядности добавлены в пример, в работе макроса не требуются, нужны только значения

Решение задачи: «Простенький макрос VBA»

textual
                            Листинг программы 
                        

                            Sub Order()
Dim I As Integer, J As Integer, K As Integer, S As String, S1 As String
For I = 2 To 14
  S1 = Cells(I, 2): S = Cells(I, 1): J = 1
  Do While Cells(I + J, 2) = S1
    S = S & "," & Cells(I + J, 1)
    J = J + 1
  Loop
  S = S & ","
  If J > 1 Then
    For K = I To I + J - 1
      S1 = Replace(S, Cells(K, 1) & ",", "")
      S1 = Left(S1, Len(S1) - 1)
      Cells(K, 3) = S1
    Next
    I = I + J - 1
  End If
  S = ""
Next
End Sub
                        