第一次出现非空白细胞vba

Question

我正在尝试编写适用于Excel工作表的VBA代码。

范围（“A65536”）。结束（xlUp）.Row给出最后一个非空白单元格的行号。同样，我试图得到该特定列中第一个非空白单元格的行号。 提前致谢。 马杜

Answer 1

您可以使用相同的功能，只需检查第一行是否为空白。

Dim firstRow as Integer

If ActiveSheet.Range("A1").value = "" Then
    firstRow = ActiveSheet.Range("A1").End(xlDown).Row
Else
    firstRow = 1
End If

如果第一行不是空白并且您使用End(xlDown)调用，则不会获得第一个非空单元格，您将获得第一个空白单元格之前的最后一个非空单元格。

Answer 2

您还可以使用IsEmpty（cell）函数，该函数返回布尔值true / false。