Ссылка на столбец в VBA с использованием sheet (). Range (). Значение

Question

Я стараюсь избегать копирования и вставки, чтобы значительно ускорить макрокоманду (ранее для ее запуска требовалось две минуты).Я пытаюсь сослаться на четыре целых столбца в Sheetx (A, B, J, L) и сделать так, чтобы они отображались в листах (A6, B6, C6, D6).

Я пробовал несколько вариантов

Листы ("Sheety"). Диапазон ("A6: A, B6: B, C6: C, D6: D"). Значение = Листы ("Sheetx"). Диапазон ("A: A, B: B, J: J, L: L "). Значение

Кроме того, для листов (" sheety ") я склоняюсь к Active.Sheet или Sheets (B), поскольку я использовал индексный номер для листат.е.

Для B = 31 31 является индексом для реального листа.

Я искал ответы в течение последнего часа.Кто-нибудь может помочь?

Answer 1

Скажите, если что-то вроде этого:

Sub Testy3()
    Dim N As Long
    N = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
    Sheets("Sheet1").Range("A1:A" & N).Copy Sheets("Sheet2").Range("A6")
End Sub

работает для вас.

Если все столбцы в Sheet1 имеют одинаковое количество строк, вам не нужно пересчитывать N для каждого столбца.