VBA检测Excel工作表区域中是否有隐藏行或列
2019-04-16 09:21阅读：
Excel工作表中，有时为了方便操作会临时隐藏某些行或者列，到再次使用时需要检测某选择区域是否包含有隐藏的行或列，这里给出一个
VBA函数RangeHasHiddenRowsOrCols
可以完成这个功能，具体源代码如下：
01.'================================
02.'
检测区域中是否有隐藏行或列
03.'
如存在则返回True
04.'
05.'================================
06.Private
Function
RangeHasHiddenRowsOrCols(rng) As
Boolean
07.
Dim r
As
Range, c As Range
08.
RangeHasHiddenRowsorCols =
False
09.
For Each
r In
rng.Rows
10.
If
r.EntireRow.Hidden
Then
11.
RangeHasHiddenRowsorCols =
True
12.
Exit
Function
13.
End
If
14.
Next
15.
For Each
c In
rng.Columns
16.
If
c.EntireColumn.Hidden
Then
17.
RangeHasHiddenRowsorCols =
True
18.
Exit
Function
19.
End
If
20.
Next
21.End
Function
