Макрос слишком медленный

Question

Я довольно новичок в программировании. И я не уверен, почему макрос работает слишком медленно (файл Excel не отвечает).

полный код

Попытка упростить это

Worksheets("Sheet2").Select
        Range("S1", Range("S1").End(xlDown)).Copy
        Worksheets("Sheet1").Select
        Range("K10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,SkipBlanks:=False, Transpose:=False

к этому

Worksheets("Sheet2").Range("S1", Range("S1").End(xlDown)).Copy
Worksheets("Sheet1").Range("K10").PasteSpecial

, но это не вставка значений. Я не знаю, что я сделал не так.

Answer 1

ваш код, вероятно, очень медленный, поскольку ваш диапазон огромен (до 50000), и он должен проходить через него, что занимает много времени. Попробуйте переписать либо с использованием динамического диапазона, либо избегая использования функции цикла.