返回

瞬间隐匿 Excel工作簿中多余工作表

Excel技巧

瞬间隐匿 Excel工作簿中多余工作表

在工作簿中，常常会遇到多个工作表同时存在的情况。当其中某些工作表不再需要时，可以将其隐藏，以减少屏幕的杂乱和提高工作效率。本文将提供一种方法，可以在Excel工作簿中快速隐藏或显示除活动工作表外的所有工作表。

VBA代码示例

Sub 隐藏活动工作表外的所有工作表()
    Dim Sht As Worksheet
    For Each Sht In ActiveWorkbook.Worksheets
        If Sht.Index <> ActiveSheet.Index Then
            Sht.Visible = False
        End If
    Next Sht
End Sub

代码说明

  • Dim Sht As Worksheet：声明变量Sht，类型为Worksheet，用于遍历工作簿中的每个工作表。
  • For Each Sht In ActiveWorkbook.Worksheets：使用For Each循环遍历工作簿中的每个工作表。
  • If Sht.Index <> ActiveSheet.Index Then：判断当前工作表是否不是活动工作表。
  • Sht.Visible = False：将当前工作表隐藏。
  • End If：结束If条件语句。
  • Next Sht：继续遍历下一个工作表。

使用指南

  1. 打开需要隐藏或显示工作表的Excel工作簿。
  2. 按下Alt + F11组合键打开VBA编辑器。
  3. 在Project窗口中，找到并双击要插入代码的模块。
  4. 在模块的代码窗口中，粘贴提供的VBA代码。
  5. 保存模块并关闭VBA编辑器。
  6. 在工作簿中，按Alt + F8组合键打开宏对话框。
  7. 在宏对话框中，选择要运行的宏，然后单击“运行”按钮。

效果

运行宏后，除活动工作表外的所有工作表都将被隐藏。如果要显示这些工作表，可以再次运行宏，或手动单击每个工作表标签将其显示。

注意事项

  • 隐藏工作表并不会删除工作表，只是将其隐藏。如果需要删除工作表，可以使用Worksheet.Delete方法。
  • 隐藏工作表后，如果在工作簿中添加新的工作表，这些新的工作表也会被隐藏。
  • 隐藏工作表后，如果在工作簿中保存更改，这些更改也会被保存。

扩展阅读