Excel VBA : Return first unhidden column from the left?

Question

关闭。这个问题需要details or clarity .它目前不接受答案。












想改进这个问题？通过 editing this post 添加详细信息并澄清问题.


7年前关闭。







Improve this question




有没有办法获取第一个未隐藏列的列号？

So if Column A is hidden, return 2.
If Column A and B are hidden, return 3.
If A and C are hidden, return 2, etc.

Answer 1

没有循环

更新:没有处理最左边的列被隐藏的情况。如果无细胞测试是多余的，那么 Tmdean 的较短解决方案是优越的

 Sub FirstNonHidden()
Dim rng1 As Range
Set rng1 = Cells.SpecialCells(xlCellTypeVisible)
If rng1.Column <> 1 Then
MsgBox rng1.Areas(1).Column
Else
MsgBox "No hidden cells"
End If
End Sub