-1

Мне нужно сгруппировать данные из нескольких строк в одну строку. Проблема, с которой я столкнулся, заключается в том, что я унаследовал эти данные, тысячи строк, и столбец A содержит значение только при запуске новой строки данных. Например, у меня есть:

Данные

И мне нужно вернуться:

Результаты

Любые идеи о том, как я могу сделать это?

1 ответ1

0

Используйте этот код:

Sub Merge()
Set d = CreateObject("Scripting.Dictionary")
arr = [a1].CurrentRegion
For i = 2 To UBound(arr)
    If Len(arr(i, 1)) = 0 Then arr(i, 1) = arr(i - 1, 1)
    If Not d.exists(arr(i, 1)) Then
        d(arr(i, 1)) = arr(i, 2)
    Else
        d(arr(i, 1)) = d(arr(i, 1)) & "," & arr(i, 2)
    End If
Next
[d2].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
End Sub

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .