Excel VBA代码在行号1020后中断（继续在不同的单元格中）

我的vba代码有问题。 我必须为我的调查生成一个线和点数，并从另一个txt文件中获取这些点的坐标。 它工作正常，直到行号1020，之后，公式无法find列中的第一个空单元格，并insted继续写入数据到第一列。

我的公式是在列中find第一个空单元格

Worksheets("POSTAVLJANJE").Activate NextFree = Range("B3:B" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row Range("B" & NextFree).Select 

任何想法？

Answer 1

尝试使用此代替：

 NextFree = Range("B" & Rows.Count).End(xlUp).Row+1 

这将find从底部开始的第一个非空行，并添加一个以指示下面的第一行。