如果最后一个单元格包含数据，如何删除整行

Question

我是VBA excel宏编程的新手，如果只有最后一个单元格包含数据，例如，如果单元格A1，B1，C1，D1，E1为空且H1有任何数据而不是我想要的话，那么当前正在编写删除整行的代码删除整行。尝试过countA功能但失败了。请帮助

Answer 1

如果＆＃34; H1＆＃34;永远是你的最后一个细胞，试试这个：

If Range("H1").Value = "" then
    Range("H1").EntireRow.Delete
End if

如果你通过一个循环来完成它：

If Range("H" & row & "").Value = "" then
    Range("H" & row & "").EntireRow.Delete
End if