Поиск Дезеру с пустыми ячейками в листе

Question

lastrow = ThisWorkbook.Sheets("Numbers").Cells(Rows.Count, 1).End(xlUp).Row 

У меня есть данные до тех пор, пока 55-я строка, но последняя строка не даст мне 70, поскольку формула тянется до 70-й строки, а строки от 55 до 70 содержат пустое пространство согласно формуле , Как я могу избежать этого?

Answer 1

Петля вокруг всех ячеек в радиусе действия, затем отработайте первую непустую ячейку. Установите lastrow в этой ячейке

lastrow = ThisWorkbook.Sheets("Numbers").Cells(Rows.Count, 1).End(xlUp).Row 

for i = lastrow to 1 step -1 
    if ThisWorkbook.Sheets("Numbers").Cells(i, 1) <> " " then 
     lastrow = i 
     exit for 
    end if 
next