Question

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

示例

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

我有变量numRows，我曾用它来计数要粘贴的行数。

将B，C，H，J列的第一行复制到下面的n行中，最有效的方法是什么？有时，复制到目标工作表中的行数将为15-50，有时为5,000+。同样，第1行中要复制数据的列数大约为20左右，跨6张纸。

非常感谢您的帮助。

Answer 1

尝试一下：-

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

设置字幕后，继续粘贴您的其他数据。

Answer 2

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

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

我要复制的其他工作表中的numRows所在的位置。