VBA脚本： excel隐藏和展开指定行【图文】

最新推荐文章于 2025-09-22 11:59:12 发布

原创最新推荐文章于 2025-09-22 11:59:12 发布 · 1.9k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#excel

各种脚本专栏收录该内容

12 篇文章

订阅专栏

本文详细介绍了如何在Excel中使用VBA编程来隐藏或显示指定工作表的行，包括全局操作所有工作表和针对特定工作表的实例，以及如何将宏保存为.xlsm文件。

打开开发工具功能

【文件】-》【选项】-》【自定义功能区】-》勾选【开发工具】-》【确定】

在这里插入图片描述

代开VBA编辑器

【开发工具】-》【Visual Basic】

插入模块

在这里插入图片描述

编写代码

所有sheet

关闭

Sub HideRowsInAllSheets()
    Dim ws As Worksheet
    Dim i As Integer
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 循环遍历要隐藏的行
        For i = 10 To 26
            ws.Rows(i).Hidden = False
        Next i
    Next ws
End Sub

打开

Sub HideRowsInAllSheets()
    Dim ws As Worksheet
    Dim i As Integer
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 循环遍历要隐藏的行
        For i = 10 To 26
            ws.Rows(i).Hidden = True
        Next i
    Next ws
End Sub

指定sheet

关闭

Sub HideRows()
    Dim ws As Worksheet
    Dim i As Integer
    
    ' 指定要操作的工作表
    Set ws = ThisWorkbook.Sheets("test") ' 在这里替换 "test" 为你的工作表名称
    
    ' 循环遍历要隐藏的行
    For i = 10 To 26
        ws.Rows(i).Hidden = True
    Next i
End Sub

打开

Sub HideRows()
    Dim ws As Worksheet
    Dim i As Integer
    
    ' 指定要操作的工作表
    Set ws = ThisWorkbook.Sheets("test") ' 在这里替换 "test" 为你的工作表名称
    
    ' 循环遍历要隐藏的行
    For i = 10 To 26
        ws.Rows(i).Hidden = False
    Next i
End Sub