第一次出現非空白單元格vba

Question

我正在嘗試編寫適用於我的Excel工作表的VBA代碼。

Range（“ A65536”）。End（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。