Добрый день!
Лист1 содержит 50 столбцов, 60 строк - данным кодом копируется построчно на Лист2 18 секунд.
Хотя по идее должны копироваться за 0.5 сек
Укажите, пжлст, где собака порылась...
Как ускориться и где перестроиться...)))
Традиционное спасибо всем откликнувшимся!
Лист1 содержит 50 столбцов, 60 строк - данным кодом копируется построчно на Лист2 18 секунд.
Хотя по идее должны копироваться за 0.5 сек
| Код |
|---|
n = 1
Do While Worksheets("Лист1").Cells(n, 1) <> ""
Worksheets("Лист1").Rows(n).Copy Worksheets("Лист2").Range("A" & n)
'MsgBox Sheets("Лист1").Cells(n, 1).Value & " = " & Sheets("Лист2").Cells(n, 1).Value
n = n + 1
Loop
|
Как ускориться и где перестроиться...)))
Традиционное спасибо всем откликнувшимся!
Великий и могучий утес, сверкающий бой, с ногой на небе, живущий, пока не исчезнут машины.
