自己修改代码吧,关键部分如下:for each rn in range("A1:B10")if rn="" thenrows(rn.row).delete‘删除行columns(rn.column).delete'删除咧end ifnext