第一次發生非空白單元格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。