Ускорение макроса Copy Paste

[Ivan Dulin]

Добрый день. Копирую колонки с одного листа на другой.
Макрорекордер нашептал мне делать так:

Sub qw()
    Sheets("Sheet1").Select
    Columns("D:D").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Columns("D:D").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Вот только мне нужно делать кучу таких копипастов (я их закину в цикл for next). Нужен более рациональный способ чтоб макрос не выполнялся несколько секунд. Нужно голое копирование информации без этой беготни по листам и выборов колонок.

Подскажите пожалуйста правильный код. Заранее спасибо

[Hugo121]

Вообще-то можно так:

Sub qw()
    Sheets("Sheet2").Columns("D:D").Value = Sheets("Sheet1").Columns("D:D").Value
End Sub

Но это не совсем быстро.
Можно обрезать лишнее, взять только из usedrange - но вопрос: куда выгружать?
UsedRange бывает не начинается с первой строки.
Ещё вариант - взять с первой строки до последней заполненной в столбце D в массив, и соответственно выгрузить его в первую строку.

Вот это быстро:

Sub tt()
    Dim a()
    With Sheets("Sheet1")
        a = Range(.[d1], .Range("D" & .Rows.Count).End(xlUp)).Value
    End With
    Sheets("Sheet2").[d1].Resize(UBound(a), 1) = a
End Sub