Здравствуйте. Подскажите, пожалуйста, можно ли увеличить скорость работы макроса. Макрос маленький, а выполняется 4 секунды.
Код |
---|
Sub Вставить_01()
Application.ScreenUpdating = False
Range("J10:J32").Copy
Range("L41").PasteSpecial Paste:=xlPasteValues
Range("L10:L32").Copy
Range("M41").PasteSpecial Paste:=xlPasteValues
Range("B3").Copy
Range("O40").PasteSpecial Paste:=xlPasteValues
Sheets("Лист2").Range("BG1").Copy
Sheets("Лист1").Range("O51,B131").PasteSpecial Paste:=xlPasteValues
Application.ScreenUpdating = True
End Sub |