Dim i, y, x As Integer
i = 1
Do Until Cells(i, 2) Like "L E G E N D :"
y = 1
x = 0
If Cells(i, 2) Like " *" And Cells(i, 3) = "ALL MEDIA" Then
Do Until Cells(y, 2) Like "L E G E N D :"
If Cells(i, 2) = Cells(y, 2) Then x = x + Cells(y, 4)
y = y + 1
Cells(i, 4) = x
Loop
i = i + 1
Loop
End Sub
У меня там просто две петли, и у меня ошибка
L oop без Do
, и я ясно вижу, что у меня есть эта Loop
и Do
2x: D