在aa colunm中查找下一个空单元格

Question

我有一个工作簿，每个工作表有数百个条目，并且我有代码来查找列中的下一个空闲单元格。 该代码可以在一张纸上工作，而不能在另一张纸上工作。 我知道这很简单，但我不知道是错的。

Private Sub CommandButton_Click()
Dim ws As Worksheet

Set ws = ActiveSheet

For Each cell In ws.Columns(1).Cells
     If Len(cell) = 0 Then cell.Select: Exit For
Next cell
End Sub

Answer 1

您需要一种“记住”上一次单击时找到的最后一个空单元格的方法：

Public iROW As Long

Sub CommandButton_Click()
Dim ws As Worksheet

Set ws = ActiveSheet

For Each cell In ws.Columns(1).Cells
    If cell.Row > iROW Then
         If Len(cell) = 0 Then
            cell.Select
            iROW = cell.Row
            Exit For
         End If
    End If
Next cell
End Sub

一种替代方法是使用Find()和FindNext()

Answer 2

我创建了一个模块，查找连续的下一个空白单元格。 这是代码Sub Macro_FIND_NEXT_BLANK_SPACE() If IsEmpty(ActiveCell.Offset(1)) Then ActiveCell.Offset(1).Select Else ActiveCell.End(xlDown).Offset(1).Select End If End Sub然后我写了代码运行子命令。 Private Sub CommandButton14_Click() Call Macro_FIND_NEXT_BLANK_SPACE End Sub我要感谢小组的帮助。