先将A4-A8单元格内容删除，再选中A3-G8（前几张截图少选了一行），按Ctrl+G，点击“定位条件”，选中“空值”后确定，在被选中的任何空白单元格上，右键单击，删除单元格（下方单元格上移）即可。
不用VBA，恐怕也不会有再好的办法了。
