Question

我有一个工作簿，每个工作表有几百个条目，＆amp;我有代码来查找列中的下一个空闲单元格。代码在一张纸上工作，但不在另一张纸上。我知道这很简单，但我不知道是不是错了。

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

你需要一种方法来记住＆＃34;您在上次点击时找到的最后一个空单元格：

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 然后我写了代码来运行sub命令。 Private Sub CommandButton14_Click() Call Macro_FIND_NEXT_BLANK_SPACE End Sub 我要感谢小组的帮助。

找到一个colunm中的下一个空单元格

2 个答案: