粘贴特定列的第一个空行的数据

Question

我试图将工作簿中的数据粘贴到另一个工作簿中。我需要在列的第一个空行导入这些数据。由于此列可能包含空白单元格，因此我必须确定第一个空行，这要归功于另一个不可能有空白单元格的列。

我写了这段代码：

=＆GT;确定第一个空行：

Dim n
With Worksheets("Dest")
n = .Range("L" & .Rows.Count).End(xlDown).Row + 1
End With

=＆GT;粘贴在正确的位置：

For j = 0 To (finas - debutas)
Worksheets("Dest").Cells(n, debutad + j) = Vcol(j)
Next j

但系统不断粘贴第一行的数据...... 我做错了什么？

谢谢你的回答！ ：）

Answer 1

您没有在循环中递增n。

For j = 0 To (finas - debutas)
  Worksheets("Dest").Cells(n, debutad + j) = Vcol(j)
  n=n+1
Next j

'or

For j = 0 To (finas - debutas)
  Worksheets("Dest").Cells(n+j, debutad + j) = Vcol(j)
Next j