我发现如果工作表很大，遍历Excel笁作表可能需要一些时间因此，我的解决方案试图避免任何循环在工作表为了避免循环遍历工作表，我从返回的单元格中生成了一个②维对象数组usedRange有：

这是I循环的数组，用于获取空行和列的索引我创建了2个int列表，一个保留行索引以删除另一个保留要删除的列索引。

这些列表将从高到低排序以简化从下向上删除行和从右到左删除列。然后简单地循环遍历每个列表并删除适当的行/coll

最后，在删除了所有空行和列之后我将文件保存为一个新的文件名。

为了进行测试我创建了一个通过工作表循环的方法，并将其与通过对象数组循环嘚代码进行比较它显示出一个显著的差异。

方法通过工作表循环并删除空行和列

然后对这两种方法进行测试/计时。

如果您为UseRang创建一个Range變量而不继续重新抓取它，那么When循环的每一次迭代都会产生很大的不同当我把while循环改为

我没有发布结果，因为您可以使用下面的代码並更改while循环以便在每次迭代时获取UsecRange，或者使用变量usedRange来测试这个结果

你可以改变DeleteCols和DeleteRows如果Excel在上次使用的行和列之后包含额外的空白行和列，则将获得更好的性能：