首次发生非空白细胞vba

我正在尝试编写在我的Excel表单上工作的VBA代码。

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

Answer 1

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

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。