Question

所以我在VBA中有这两行代码，在列的底部找到一个空单元格，然后在下一个单元格中返回一个指针。

RowPointer = ThisWorkbook.Sheets("Current").Cells(65000, 4).End(xlUp).Row
If ThisWorkbook.Sheets("Current").Cells(RowPointer, 4).Formula <> "" Then RowPointer = RowPointer + 1

问题是这是从下往上搜索，我需要在列中找到第一个空单元格而不是最后一个。我已经看到了一些方法来解决这个问题，使用循环来遍历列，但我正在使用的电子表格相当大，循环需要很长时间才能执行。所以我的问题是有一种简单的方法可以从上到下搜索一列来找到第一个空单元格吗？

Answer 1

试试这个（我还没试过）：

RowPointer = ThisWorkbook.Sheets("Current").Cells(0, 4).End(xlDown ).Row
If ThisWorkbook.Sheets("Current").Cells(RowPointer, 4).Formula <> "" Then RowPointer = RowPointer + 1

Answer 2

也许像

RowPointer = Sheets("Current ").Columns(4).SpecialCells(xlCellTypeBlanks).Cells(1,1).Row

从手机发布，所以我希望它有效！

使用没有循环的VBA查找列中的第一个空单元格

2 个答案: