excel - 如何在 VBA 中找到第一个空单元格？

Question

我的工作表看起来像:


我有一个函数来获取 的索引最后 A列中的空单元格:

NextRow = Range("A" & Rows.Count).End(xlUp).Row + 1

此函数可用于写入第二个数组(Type2)。

但是现在，我想要一个函数来获取 的索引第一 A列中的空单元格。所以我去了这个网站:Select first empty cell我试图调整代码，但它不起作用:

If Array= "Type1" Then
    Dim ws As Worksheet
    Set ws = ActiveSheet
    For Each cell In ws.Columns(1).Cells
       If IsEmpty(cell) = True Then NextRow = cell: Exit For 'ERROR 1004
    Next cell
End If
If Array= "Type2" Then 'It s works
    NextRow = Range("A" & Rows.Count).End(xlUp).Row + 1
End If

ActiveSheet.Range("A" & NextRow) = "TEST"

你能帮我修改我的代码以拥有NextRow = IndexOf FIRST empty cell in A吗？ ?

Answer 1

您可以使用与获取最后一个相同的方法。

NextRow = Range("A1").End(xlDown).Row + 1