使用VBA将excel工作表中的多列中的第1行复制到n行

我有一个目标工作表，我正在将多个列复制到其中。此目标工作表在每列的第一行中也有值，需要为我要添加的列的每第n行复制和粘贴这些值

范例

我正在从另一个工作簿中的数组中设置A列和D列中n行的单元格值（我已经编写了这部分代码）。列B、C、H、J在第1行中都有一个值，需要将该值复制到我为列a和D粘贴值的所有行中

我有一个变量numRows，用于计算要粘贴的行数

将B、C、H、J列的第一行复制到下面n行中最有效的方法是什么？有时复制到目标工作表中的行数为15-50，有时为5000+。此外，第1行中有数据要复制的列数大约为20列，跨越6张工作表

提前谢谢你的帮助

试试这个：-

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

---

设置标题后继续粘贴其他数据。

我最终使用Variatus的建议，在粘贴其他数据之前复制第一行。我复制的方式是

targetSheet.Range（“A9:AY9”）。自动填充目标：=targetSheet.Range（“A9:AY”&numRows），类型：=xlFillCopy

---

我从我的另一张纸上得到的数字是我复印的

这是一个很好的建议。我甚至没有想到在先粘贴不变的文本后再粘贴数据。谢谢。这是一个很好的建议。我甚至没有想到在先粘贴不变的文本后再粘贴数据。谢谢唯一的问题是A列中还没有任何数据。我将在那里粘贴数据。如果本页上的某个答案值得推荐，请将其标记为“已选择”。