Копирование строки 1 из нескольких столбцов в листе Excel в n строк с использованием VBA

Question

У меня есть целевой лист, в который я копирую несколько столбцов.Этот целевой лист также содержит значения в первой строке каждого столбца, которые необходимо скопировать и вставить для каждой n-й строки для столбцов, которые я добавляю.

Пример

Я устанавливаю значение ячейки в n строк в столбцах A & D из массива в другой книге (эту часть я закодировал).Все столбцы B, C, H, J имеют значение в строке 1, которое необходимо скопировать во все строки, в которые я вставляю значения для столбцов A и D.

У меня есть переменная numRows, которую я использовал для подсчета количества строк, которые я буду вставлять.

Какой самый эффективный способ скопировать эту 1-ую строку для столбцов B, C, H, J в число n строк ниже?Иногда количество строк, скопированных в целевой лист, будет 15-50, иногда более 5000+.Кроме того, количество столбцов в строке 1, которые имеют данные для копирования, составляет около 20 или около того, и на 6 листах.

Спасибо за вашу помощь заранее.

Answer 1

В итоге я воспользовался предложением Вариата скопировать первый ряд перед тем, как вставить другие мои данные.Я скопировал следующий способ:

targetSheet.Range ("A9: AY9"). Место назначения автозаполнения: = targetSheet.Range ("A9: AY" и numRows), тип: = xlFillCopy

, гдеnumRows, которые у меня были с другого листа, с которого я копировал.

Answer 2

Попробуйте это: -

With ActiveSheet
    .Range("A1:I1").Copy .Cells(.Rows.Count, "A").End(xlUp).Offset(1)
End With

Продолжите вставку других данных после установки подписей.