将一个var的完整行复制到其他var

我有一个这样的变种

ranging from var(1,42) to var(4000,42) 

我根据需要做了一些操作，用0和1填充了var的第42列。 现在我只需要将那些var的行导入到第42列有1的表单中。 这些是我编码的

 t=1 For i = 1 to 4000 If var(i,42) = 1 Then For k = 1 to 41 var2(t,k) = var(i,k) Next k t = t + 1 End If Next i 

我认为是从一个var复制所需的行到其他new_var，Im使用循环这样的东西

 for k = 1 to 41 ' the inner loop 

但是这里的人们说循环是耗时的。 他们甚至说它是一种错误的编写代码风格，但我没有find一个更好的方法来将一个var复制到其他var，我的意思是只需要rows.Say假设我必须复制一个var的第30行内容到其他var，然后林使用循环复制从1到41的列内容，但有没有像复制整个var的行到另一个var？

Answer 1

尼科，

循环范围很慢 – 循环变体数组非常快。 而且它肯定是不错的代码！

你的方法很好。

所以我的解决scheme是相同的方法是否可以将一定范围的variables转储到工作表中？ 适合你使用。 它将50,000个单元格写入第二个数组，然后在不到一秒的时间内将其转储到一个表单

Answer 2

你问：

有没有像复制整个var的行到另一个var？ [大概在一个单一的命令]

答案是：不，没有。 你的方法是我所知道的唯一方法。