复制一个变种的完整的一行到其他变种

Question

我有这样的

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

一个变种我已经做基础上，要求某些操作，并与0和1的填充VAR的第42列。现在，我只需将那些var的行导入到第42列中有1的表单中。这是我应得的进出口使用循环像这些

for k = 1 to 41 ' the inner loop 

编码

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 

我觉得是需要的行从一个变种到其他new_var副本，但这里的人说，循环费时。他们甚至说它是一种糟糕的编写代码风格，但我没有找到更好的方法来将一个var复制到其他var，我的意思是只有需要的行。假设我必须将一个var的第30行内容复制到其他var，然后林使用循环复制从1到41的列内容，但有没有像复制var的整个行到另一个var？

Answer 1

尼科，

它是慢循环范围 - 循环变体阵列是exteremely快。这当然不是错误的代码！

你的方法很好。

因此，与我在Is it possible to dump a certain range of variant into the sheet?中的解决方案相同的方法适合您使用。它写道：50,000个细胞左右，第二阵列，然后将其转储到片在不到一秒钟的

Answer 2

你问：

是有什么样的VAR的整行复制到其他VAR ？ [大概是在一个单一的命令]

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