Sub TablCopy()
Dim n As Long
For n = 2 To 7000
Rows("1:9").Select
Selection.Copy
Rows(n * 9 + 1).Select
Selection.Insert Shift:=xlDown
Next n
End Sub
Как ускорить копирование таблицы ?
На листе есть некая таблица, которую необходимо раскопировать на
эное количество листов, а потом заполнить. Тормозит жутко.
Есть ли возможность это как нибудь ускорить?
эное количество листов, а потом заполнить. Тормозит жутко.
Есть ли возможность это как нибудь ускорить?
Код:
Попробуйте использовать что-то вроде этого :
А если использование цикла действительно необходимо, то :
Код:
Rows("1:9").Copy Destination:=Rows("19:63009")
А если использование цикла действительно необходимо, то :
Код:
With Application
.ScreenUpdating = False
.Calculation = xlManual
For iRow& = 19 To 63001 Step 9
.Rows("1:9").Copy .Cells(iRow&, 1)
Next
.Calculation = xlAutomatic
.ScreenUpdating = True
End With
.ScreenUpdating = False
.Calculation = xlManual
For iRow& = 19 To 63001 Step 9
.Rows("1:9").Copy .Cells(iRow&, 1)
Next
.Calculation = xlAutomatic
.ScreenUpdating = True
End With
ОГРОМНОЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБО!
[QUOTE=pashulka]
Application.ScreenUpdating = False
...
Rows("1:9").Copy .Cells(iRow&, 1)
[/QUOTE]
Помогло!
[QUOTE=pashulka]
Application.ScreenUpdating = False
...
Rows("1:9").Copy .Cells(iRow&, 1)
[/QUOTE]
Помогло!