防止删除最后一行

Question

我正在为报价和发票制作模板。

我复制了一些代码以添加命令按钮：

“添加行”代码查找最后一行（B列）并在上面添加一行。 = OK

“删除行”代码找到最后一行（B列）并将其删除。 = OK

我想要的是用户可以使用“删除行”功能删除行，除非只剩一行。

（（如果没有行，则无法再添加具有相同功能的行）。

任何人都可以帮助我吗？

预先感谢

Answer 1

此外，在VBA中，使用选择通常被认为是不好的做法。

而不是

Range("B" & Rows.Count).End(xlUp).Select
ActiveCell.EntireRow.Delete

建议使用：

Range("B" & Rows.Count).End(xlUp).EntireRow.Delete

对于您的解决方案，“如果”使您可以根据条件有条件地运行代码段。

Sub DeleteLastRow()

lastrow = Range("B" & Rows.Count).End(xlUp).Row

If lastrow = 1 Then
    MsgBox ("You can't delete the last row")
Else
    Rows(lastrow).Delete
End If

End Sub