excel - 查找最后一行，擦除标题

Question

如果代码下方的a2单元格为空，请擦除标题，如果我添加+1，则继续添加零

即使a2为空，我也可以找到最后一个空行而不擦除标题吗？（a1 是标题）谢谢

Dim lastrow As Long

lastrow = Cells(Rows.Count, "a").End(xlUp).Row

With Range("a2:a" & lastrow)

End With

标签： excelvba

Answer 1

这是我在评论中的建议的更强大的替代方案。这种方式lastrow永远不会少于2。

Sub x()

Dim lastrow As Long

lastrow = Cells(Rows.Count, "a").End(xlUp).Row
lastrow = WorksheetFunction.Max(2, lastrow)
With Range("a2:a" & lastrow)
    .Value = 1
End With

End Sub