VBA:如何隐藏已过滤(拼接)的列？

Sub HideFilteredColumns()
    Dim ws As Worksheet
    Dim rng As Range
    Dim col As Range
    
    ' 设置要隐藏列的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置要隐藏列的范围
    Set rng = ws.UsedRange
    
    ' 循环遍历每一列
    For Each col In rng.Columns
        ' 检查列是否被过滤（拼接）
        If col.Hidden = False And col.EntireColumn.Hidden = True Then
            ' 隐藏列
            col.Hidden = True
        End If
    Next col
End Sub