VBA как указать пустую ячейку?

[VictorM]

Немного подправил Ваш код

Sub Кнопка2_Щелчок()

    Dim n As Integer
    Dim g As Integer
    g = 2
    n = 2
    Do Until IsEmpty(Cells(n, 2)) = True
        g = n
        Do
            If Cells(n, 1) = Cells(g, 2) Then
                Cells(n, 5) = Cells(g, 3)
                GoTo Flag
            Else: Cells(n, 5) = 0
            End If
            g = g + 1
        Loop Until IsEmpty(Cells(g, 1)) = True
Flag:
        n = n + 1
    Loop
End Sub

но со словарями, как показал Hugo121 работать будет заметно быстрее.

[Onni]

Сообщение от VictorM

Немного подправил Ваш код

Sub Кнопка2_Щелчок()

    Dim n As Integer
    Dim g As Integer
    g = 2
    n = 2
    Do Until IsEmpty(Cells(n, 2)) = True
        g = n
        Do
            If Cells(n, 1) = Cells(g, 2) Then
                Cells(n, 5) = Cells(g, 3)
                GoTo Flag
            Else: Cells(n, 5) = 0
            End If
            g = g + 1
        Loop Until IsEmpty(Cells(g, 1)) = True
Flag:
        n = n + 1
    Loop
End Sub

но со словарями, как показал Hugo121 работать будет заметно быстрее.

Заметно? наверно очень заметно быстрее , потому как ошибки исправила запустила и на кнопку нажимаю и все... виснет все. А как со словарями?

[Hugo121]

Ну я пример запустил - не виснет, работает.
Но насколько продуктивно, и не зациклилось ли - не смотрел...
А как со словарями - проверьте, весь код есть.

[Onni]

Сообщение от Hugo121

Чувствую, можно сделать быстро на словаре/коллекции и массивах, но без примера делать - дело не благодарное в большинстве случаев...

Я про вот эти словари/коллекции говорю...
Это что такое?


Я про замкнутый цикл почему то не подумала. Сейчас еще раз посмотрю.

[VictorM]

Замкнутого цикла нет.
Проверьте на листе Example
А вот на рабочем листе, да, работает ОЧЕНЬ долго, я сам подумал сначала что зависло все.
так что ИМХО следует применить код от Hugo121
с этим кодом у меня все сработало "на раз" ))

[Onni]

Сообщение от VictorM

Замкнутого цикла нет.
Проверьте на листе Example
А вот на рабочем листе, да, работает ОЧЕНЬ долго, я сам подумал сначала что зависло все.
так что ИМХО следует применить код от Hugo121
с этим кодом у меня все сработало "на раз" ))

Да, с кодом Hugo121 все быстрее работает, но честно скажу никто не поверит(да и я не поверила бы) что код написала я. Hugo121, искренне большое спасибо! Я бы и рада восопльзоваться твоей помощью, но мы такие ключевые слова ещё в глаза, скажем так, не видели)))

У меня теперь другой вопрос нельзя ли как либо ускорить работу моей программы?

[VictorM]

Циклы, вещь сама по себе очень медленная, что особенно заметно на больших объемах данных.
Потому и был предложен метод словари/коллекции.
А ускорить...
Можно попробовать вставить в начало процедуры

Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

и в конце - вернуть все назад

Application.ScreenUpdating = False
    Application.Calculation = xlCalculationAutomatic

попробуйте.

[VictorM]

Проверил
макрос в первоначальном виде из поста №11 в файле task1_11.xls на листе Data работал 5мин.45сек. (еле дождался )
С добавление вышеуказанных строк сработал за 3мин.40сек.
так что, ускорение все-таки есть, хотя, конечно, все равно ОЧЕНЬ медленно

[Hugo121]

Если это учебная задача - зачем столько данных? Сократите на 90%.
Если задача рабочая - изучайте словари/коллекции.

[Onni]

Сообщение от VictorM

Проверил
макрос в первоначальном виде из поста №11 в файле task1_11.xls на листе Data работал 5мин.45сек. (еле дождался )
С добавление вышеуказанных строк сработал за 3мин.40сек.
так что, ускорение все-таки есть, хотя, конечно, все равно ОЧЕНЬ медленно

а у меня все повисло, и программа не отвечает)

Hugo121, видимо придется более близкое знакомство устроить с коллекциями. Суть я вроде поняла. Попробую...