Jak określić ostatni wiersz używany w VBA, w tym puste miejsca między nimi
Jak mogę określić ostatni wiersz w arkuszu programu Excel, w tym kilka pustych linii w środku?
Dzięki tej funkcji:
Function ultimaFilaBlanco(col As String) As Long
Dim lastRow As Long
With ActiveSheet
lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, col).End(xlUp).row
End With
ultimaFilaBlanco = lastRow
End Function
I te dane:
Row 1 : Value
Row 2 : Value
Row 3 : Value
Row 4 : Value
Row 5 : Value
Row 6 : White
Row 7 : Value
Row 8 : Value
Row 9 : Value
Row 10 : White
Row 11 : White
Row 12 : White
Row 13 : Value
Row 14 : White
Funkcja zwraca 5, a ja potrzebuję 13. Jakiś pomysł, jak to zrobić?