第一次发生非空白单元格vba

Question

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

Range（“A65536”）。End（xlUp）.Row给出了最后一个非空白单元格的行号。同样，我正试图获取该特定列中第一个非空白单元格的行号。 在此先感谢。 madhu

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。