VBA选择包含文本的列和用于隐藏所有其他列的切换按钮

Sub SelectColumnsWithText()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要操作的范围，这里假设是A1到Z10的区域
    Set rng = Range("A1:Z10")
    
    ' 循环遍历每一列
    For Each cell In rng.Columns
        ' 检查列中是否有文本
        If WorksheetFunction.CountA(cell) > 0 Then
            ' 如果有文本，则选择该列
            cell.EntireColumn.Select
        End If
    Next cell
End Sub

Sub ToggleHideColumns()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要操作的范围，这里假设是A1到Z10的区域
    Set rng = Range("A1:Z10")
    
    ' 循环遍历每一列
    For Each cell In rng.Columns
        ' 检查列是否被隐藏
        If cell.EntireColumn.Hidden = False Then
            ' 如果列没有被隐藏，则隐藏该列
            cell.EntireColumn.Hidden = True
        Else
            ' 如果列已经被隐藏，则取消隐藏该列
            cell.EntireColumn.Hidden = False
        End If
    Next cell
End Sub