如何在Activesheet中查找最后一个隐藏列？

方法1：结合SpecialCells与已用列范围定位 #

Excel的SpecialCells(xlCellTypeHidden)可直接定位隐藏单元格，我们只需限定在已用列范围内操作，避免全表遍历：

1. 计算当前工作表已用区域的最右列号lastUsedCol——即使列隐藏，UsedRange.Column + UsedRange.Columns.Count - 1也能准确获取已用列的边界。
2. 在该范围内筛选隐藏列，取列号最大的那一项。

代码示例：

Sub FindLastHiddenColumn()
    Dim ws As Worksheet
    Dim lastUsedCol As Long
    Dim hiddenCols As Range
    Dim lastHiddenCol As Long
    
    Set ws = ActiveSheet
    lastUsedCol = ws.UsedRange.Column + ws.UsedRange.Columns.Count - 1
    
    On Error Resume Next ' 无隐藏列时跳过报错
    Set hiddenCols = ws.Range(ws.Columns(1), ws.Columns(lastUsedCol)).SpecialCells(xlCellTypeHidden)
    On Error GoTo 0
    
    If Not hiddenCols Is Nothing Then
        lastHiddenCol = hiddenCols.Columns(hiddenCols.Columns.Count).Column
        MsgBox "最后一个隐藏列是第 " & lastHiddenCol & " 列"
    Else
        MsgBox "未找到隐藏列"
    End If
End Sub

方法2：使用Find函数反向查找 #

Find支持按格式（隐藏属性）查找，反向查找可直接定位最右侧的隐藏列，效率极高：

Sub FindLastHiddenColumn_FindMethod()
    Dim ws As Worksheet
    Dim lastHiddenCol As Range
    
    Set ws = ActiveSheet
    
    ' 设置查找格式为隐藏列
    Application.FindFormat.Hidden = True
    
    ' 从已用区域最右列向左查找
    Set lastHiddenCol = ws.Cells.Find(What:="", After:=ws.Cells(1, ws.UsedRange.Column), _
        LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, _
        SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=True)
    
    If Not lastHiddenCol Is Nothing Then
        MsgBox "最后一个隐藏列是第 " & lastHiddenCol.Column & " 列"
    Else
        MsgBox "未找到隐藏列"
    End If
    
    ' 重置查找格式
    Application.FindFormat.Clear
End Sub

关键说明 #

• 两种方法都规避了全表遍历：方法1限定在已用列范围内筛选，方法2利用Find的反向特性直接定位，性能远优于逐列检查。
• 已用列边界计算逻辑不受列隐藏状态影响，能准确锁定需要检查的范围。

内容的提问来源于stack exchange，提问作者Markus