Добрый день!
Лист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 |
Укажите, пжлст, где собака порылась...
Кто виноват и что делать?...)))
Традиционное спасибо всем откликнувшимся!
Великий и могучий утес, сверкающий бой, с ногой на небе, живущий, пока не исчезнут машины.