Поиск первой пустой строки в Excel с VBA иногда приводит к пропуску строк

Question

При использовании этой функции очень часто пропускается несколько строк и выполняется запись в строку 12 вместо строки 9, даже если содержимое этих ячеек пустое.Есть мысли?

Function firstBlankRow(ws As Worksheet) As Long
     firstBlankRow = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
End Function

Answer 1

Вы должны ссылаться на ws в функции:

Function firstBlankRow(ws As Worksheet) As Long
     firstBlankRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
End Function

В противном случае требуется либо ActiveSheet, либо лист с кодом.