VBA excel code время работы

Question

Я написал код ниже, чтобы ввести текущее значение ячеек в массив строк. Есть 52k + строки и при запуске в режиме отладки, если я помещаю перерыв во втором «Do», код работает очень быстро (в секундах) после нажатия F5. Если перерыв не вводится, это занимает очень много времени (6-8 минут).

Кто-нибудь есть идеи, почему это происходит и как это можно исправить?

Бест, Nasos

Do 
    ProjectIDPub(i, 0) = Cells(3 + i, 13).Value & " - " & Cells(3 + i, 3).Value 
    ProjectIDPub(i, 1) = Cells(3 + i, 7).Value 
    i = i + 1 
Loop Until i = numberRowsAXProjectsSheetPub 

i = 0 
Do 
    Cells(3 + i, 14).Value = ProjectIDPub(i, 0) 
    Cells(3 + i, 15).Value = ProjectIDPub(i, 1) 
    i = i + 1 
Loop Until i = numberRowsAXProjectsSheetPub 
i = 0 

Answer 1

Предполагая, что numberRowsAXProjectsSheetPub это число строк в массиве ProjectIDPub, весь второй цикл может быть заменен

Range(Cells(3,14),Cells(3 + numberRowsAXProjectsSheetPub - 1,15)).Value = ProjectIDPub 

Это почти всегда гораздо быстрее передать массив на лист в одной уступки, а чем в цикле.

Answer 2

Вы пробовали запуска этих петель с обновлением экрана отключен?

Application.ScreenUpdating = False 
Do 
ProjectIDPub(i, 0) = Cells(3 + i, 13).Value & " - " & Cells(3 + i, 3).Value 
ProjectIDPub(i, 1) = Cells(3 + i, 7).Value 
i = i + 1 

Loop Until i = numberRowsAXProjectsSheetPub 
i = 0 
Do 
    Cells(3 + i, 14).Value = ProjectIDPub(i, 0) 
    Cells(3 + i, 15).Value = ProjectIDPub(i, 1) 
    i = i + 1 
Loop Until i = numberRowsAXProjectsSheetPub 
i = 0 
Application.ScreenUpdating = True 

И как @ ali-srn спросил, почему вам нужно запустить ту же петлю дважды? Если второй цикл доступа к некоторым данным, которые должны быть созданы первым, вы должны иметь возможность изменить его с некоторым смещением для i, если необходимо, и просто запустить один раз.