Hogyan lehet ezt megoldani?

Szia.

Szerintem valahogy igy :

Sub Ismetles()

_ _ActiveWorkbook.ActiveSheet.Cells.Range("C:C").Clear ' C oszlop tartalmának törlése

_ _I = 2 'Induló sor száma = 2

_ _Sorszam = I-1

_ _Do While ActiveWorkbook.ActiveSheet.Cells(I, 1).Value <> "" ' A oszlop I-dik sora ha üres ciklus vége

_ _ _ _Db = ActiveWorkbook.ActiveSheet.Cells(I, 2).Value ' B oszlop I-dik sorának értéke Db-be

_ _ _ _For J = 1 To Db

_ _ _ _ _ _Sorszam = Sorszam + 1

_ _ _ _ _ _ActiveWorkbook.ActiveSheet.Cells(Sorszam, 3).Value = ActiveWorkbook.ActiveSheet.Cells(I, 1).Value

_ _ _ _Next J

_ _ _ _I = I + 1

_ _Loop

End Sub

Sok sikert.

üdv.