Перегрупировка столбцов в строки по ключу

[Serzh83]

Господа! Прошу помощи. Есть такая задачка - нужно преобразовать столбцы в строки, причем по определённому ключу сгруппировать. В примере строки группируются по столбцу А, причём если в столбце В есть цифра 3 - то остальные значения В и С с идентичными А дописываются в эту строку. Предпологается что цифра 3 есть в В всегда. Может кто-то помочь?

[Teslenko_EA]

Здравствуйте Serzh83.
скорее всего существует способ решения Ваше задачи с применением формул, но я его не знаю, и потому код:

Sub transpArray()
Const iRow& = 11, sC = "^"
Dim i%, j%, s$, sA$, vArr0(), vA() As String
Range("A1:C7").Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("B1"), Order2:=xlAscending
    vArr0 = Range("A1:C7").Value
    j = iRow
    For i = 1 To UBound(vArr0)
        If Len(s) = 0 Then
            s = vArr0(i, 1): sA = s + IIf(vArr0(i, 2) >= 3, sC & vArr0(i, 2) & sC & vArr0(i, 3), "")
        ElseIf s = vArr0(i, 1) And vArr0(i, 2) >= 3 Then
            sA = sA + sC & vArr0(i, 2) & sC & vArr0(i, 3)
        Else
            vArr1 = Split(sA, sC)
            Range(Cells(j, 1), Cells(j, UBound(vArr1) + 1)).Value = vArr1
            j = j + 1: s = vArr0(i, 1)
            sA = s + IIf(vArr0(i, 2) >= 3, sC & vArr0(i, 2) & sC & vArr0(i, 3), "")
        End If
    Next
    If Len(sA) = 0 Then Exit Sub
    vA = Split(sA, sC)
    Range(Cells(j, 1), Cells(j, UBound(vArr1) + 1)).Value = vA
End Sub

Евгений.

[Serzh83]

Евгений, огромное спасибо за код!

А есть ли возможность сделать тоже, только когда в столбце В вместо цифр символовы. Т.е. группировка идет в строке не с цифрой 3, а к примеру с буквой М. В столбце В только буквы.

Просто в коде идет условие >=, а с буквами я так думаю оно работать не будет.