L oop без делать? - PullRequest
       5

L oop без делать?

0 голосов
/ 31 марта 2020
    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

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...