取消隐藏行和列

时间:2018-06-09 10:09:02

标签: excel vba

我有这个程序循环工作表来执行某些任务。 在每个工作表上,如果隐藏了任何行/列并且启用了自动过滤模式,则必须进行chceck。如果是,则必须取消隐藏它们并关闭自动过滤器。我的代码中有这样的东西:

If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilter.ShowAllData 
Columns.EntireColumn.Hidden = False 
Rows.EntireRow.Hidden = False 

我注意到Rows.EntireRow.Hidden = False行上的程序变慢了。这需要1-2秒。所以只有很少的工作表,这不是一个大问题,但有很多工作表,它会影响宏的速度。

你能做出更好的方法吗?

0 个答案:

没有答案