kenarlıklar ile birbirinden ayrılmış verilerin birleştirilmesi

[ziraatci26]

Arkadaşlar ekteki örnekte gözüktüğü gibi birbirlerinden kenarlıklar ile ayrılmış verileri birleştirmem gerekiyor.Yardımcı olursanız sevinirim

 

[hamitcan]

Aşağıdaki şekilde bir deneyin.

Sub birlestir()
For i = 2 To 13
    If Cells(i, "c").Borders(xlEdgeTop).LineStyle = xlContinuous Then a = i
    If Cells(i, "c").Borders(xlEdgeBottom).LineStyle = xlContinuous Then b = i
        For ii = a To b
          k = k & Cells(ii, "c") & " "
        Next ii
    Cells(i - 1, "e") = k
    k = ""
Next i
    a = 0: b = 0
End Sub

 

[ziraatci26]

hocam çok teşekkür ederim emeğine sağlık