如何在vba中找到最后可见的列号？
如何在vba中找到最后可见的列号？
提问于 2016-04-15 01:00:45
如何使用vba在工作表中找到最后一个可见列(而不是隐藏列)？
我使用了以下代码：
Dim LastColumn As Integer
If WorksheetFunction.CountA(Cells) > 0 Then
'Search for any entry, by searching backwards by Columns.
LastColumn = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
MsgBox LastColumn
End If但它给了我最后一个列号。我要最后一个可见的列号。有什么帮助吗？
回答 3
Stack Overflow用户
回答已采纳
发布于 2016-04-15 01:09:46
试试下面的。可以使用xlCellTypeVisible指定隐藏单元格和非隐藏单元格。
Sub counthidden()
MsgBox ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Columns.Count
End SubStack Overflow用户
发布于 2016-04-15 01:11:00
您可以使用SpecialCells来帮助：
Dim rng1 As Range
Dim rng2 As Range
On Error Resume Next
Set rng1 = ActiveSheet.UsedRange.SpecialCells(xlVisible)
On Error GoTo 0
If Not rng1 Is Nothing Then
Set rng2 = rng1.Find(What:="*", After:=rng1.Cells(1), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
MsgBox rng2.Column
End IfStack Overflow用户
发布于 2017-10-10 04:28:24
令人惊讶的是，事实证明它很简单。我在找一个类似的问题。
Sub lastVisibleColumn()
' This should select the last fully visible column on the active window
' This part selects the current top left visible cell regardless of zoom
ActiveWindow.VisibleRange.Select
ActiveCell.Offset(0, 0).Select
startColumn = ActiveCell.Column
' Large scroll right 1 page
ActiveWindow.LargeScroll ToRight:=1
ActiveWindow.VisibleRange.Select
' Select the top left cell again, -1 column to get to
'the previous scrollable page
ActiveCell.Offset(0, -1).Select
ActiveWindow.LargeScroll ToLeft:=1
lastColumn = ActiveCell.Column
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/36636589
复制相关文章
相似问题
腾讯云开发者
