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

Question

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

我写了这段代码：

=> 确定第一个空行：

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

=> 粘贴到正确的位置：

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