如何用EXCEL的VBA脚本编写程序删除空行和空列

这段VBA代码的作用是删除Excel工作簿中所有工作表中的空行和空列。代码包含了三个子过程：

Sub 删除所有空行和空列()

这个子过程首先遍历工作簿中的每一个工作表。对于每一个工作表，它执行以下 *** 作：

取消合并单元格，以便在删除空行和空列时不会留下空白的单元格。

调用 DeleteEmptyRows 子过程，删除所有空行。

调用 DeleteEmptyColumns 子过程，删除所有空列。

自动调整行高和列宽，以适应数据。

Sub DeleteEmptyRows()

这个子过程用于删除工作表中的空行。它首先确定最后一行的行号，然后从最后一行开始向上遍历，逐行检查该行是否为空行。如果该行为空行，则删除该行。通过使用 CountA 函数来确定行中是否存在任何非空单元格。

Sub DeleteEmptyColumns()

这个子过程用于删除工作表中的空列。它首先确定最后一列的列号，然后从最后一列开始向左遍历，逐列检查该列是否为空列。如果该列为空列，则删除该列。也是通过使用 CountA 函数来确定列中是否存在任何非空单元格。

需要注意的是，由于该代码对每个工作表都进行了 *** 作，如果工作簿中有大量工作表或者数据量很大，可能会影响代码的执行效率。

1、将鼠标光标先移至第一页空白页面的第一行顶端；

2、然后按shift键，再用鼠标点击最后一页空白页最后一行的顶端，这样就全选了中间所有空白行；

3、点击backspace或delete键都可以直接删除。

MicrosoftOfficeWord是微软公司的一个文字处理器应用程序。它最初是由RichardBrodie为了运行DOS的IBM计算机而在1983年编写的。随后的版本可运行于AppleMacintosh(1984年)、SCOUNIX和MicrosoftWindows(1989年)，并成为了MicrosoftOffice的一部分。