在工作表中找到带有空白单元格的Lastrow

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