Vba 查找工作表中具有空白单元格的最后一行

在第55行之前我有数据，但最后一行给我70，因为公式被拖到第70行，从55到70的行包含一个空格，根据公式。我怎样才能避免这种情况

循环范围内的所有单元格，然后计算出第一个非空白单元格。将lastrow设置为该单元格

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

lastrow=thiswook.Sheets（“number”）.Cells（Rows.Count，1）.End（xlUp）.Row
对于i=最后一行到1步骤-1
如果此工作簿中的.Sheets（“数字”）.Cells（i，1）”，则
lastrow=i
退出
如果结束
下一个

一旦lastrow的值为i，您将希望它退出for循环。如果不退出循环，它将继续运行，并最终给lastrow一个值1。@rwilson我第一次尝试得到1时就知道了。谢谢。请查看

End

：）的替代方法使用

。如图所示，使用
查找：=xlValues
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