satırdaki listeyi yeni liste haline geçirirken kriterlere göre n defa altalta yazma.....

[modoste]

merhaba sayın hocalarım
ekli dosyamda sorumu ilettim.

 

[ÖmerFaruk]

Formülle bilemedim. Çok uzun olacak diye bir his var ama yanılıyor da olabilirim. Direkt KOD ile yazıdm

Sub nDefaTekrarla()
Say = 5
For i = 5 To Range("D" & Rows.Count).End(3).Row
    Range("E" & Say) = Range("D" & i)
    Say = Say + 1
    For k = 2 To Range("B" & i)
        Range("E" & Say) = Range("D" & i) & " - " & Range("C" & i)
        Say = Say + 1
    Next k
Next i
End Sub