Soru Şart Göre Veri Gruplama

[aLp59]

Arkadaşlar merhaba,

Şartlı göre gruplama yapmak istiyorum.

Ekte anlatmaya çalıştım.

Teşekkürler

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Sub kod()
Dim ayr As String
ReDim dz(1 To 1)

ayr = " - "
For a = 2 To Cells(Rows.Count, 1).End(3).Row
    If Cells(a, "C") <> "-" Then
        x = x + 1
        ReDim Preserve dz(1 To x)
        dz(x) = Cells(a, "A") & ayr & Cells(a, "C") & ayr & Cells(a, "D") & ayr & Cells(a, "B") ' & ayr & Cells(a, "F")
    ElseIf InStr(1, dz(x) & ayr, ayr & Cells(a, "F") & ayr) = 0 Then
        dz(x) = dz(x) & ayr & Cells(a, "F")
    End If
Next
Range("H2").Resize(x).Value = Application.Transpose(dz)
End Sub