Преобразовать столбец B в список, разделенный запятыми, "ORDER BY" Colum A

Question

пытаясь начать с VB в Excel, просто нужно понять, как это работает, эту задачу можно выполнить в SQL, но я действительно хочу знать, как это легко сделать в столбце A Excel, содержащем номера номиналов, модели столбца b нужны в столбце A Уникальный номер детали запись, а в столбце b - список моделей, разделенных запятой, в которые эта часть может быть установлена

Column A     Column B
B00002455    C50EKB
B00002455    C50EKS
B00002455    C50EKW
B00002456    C50EKX
B00002456    C50ELB

Ищете результат -

ColumA        ColumnB 
B00002455     C50EKB, C50EKS, C50EKW 
B00002456     C50EKX,C50ELB

Answer 1

Это следует сделать, если они в порядке. Если нет, то отфильтруйте столбец А.

Sub test()
Dim lastrow As Integer
lastrow = Cells(Rows.Count, "A").End(xlUp).Row

Dim i As Integer

For i = lastrow To 2 Step -1
    If Cells(i, 1) = Cells(i - 1, 1) Then
        Cells(i - 1, 2) = Cells(i - 1, 2) & ", " & Cells(i, 2)
        Rows(i).EntireRow.Delete
    End If

Next

End Sub

Если они не в порядке, и вы не хотите фильтровать, вам понадобится словарь, я думаю.