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

原创最新推荐文章于 2026-10-16 11:36:06 发布 2.1k 阅读 AI写同款

收录于

各种脚本

FakeOccupational

码龄6年墨衍会员 · AI 创作全网分发

2万+粉丝1727篇原创

关注

【Excel VBA】玩转Excel VBA系列（一）如何在VBA中隐藏Excel应用程序窗口如何在VBA中隐藏Excel应用程序窗口玩转VBA。阅读详情

AI摘要

本文详细介绍了如何在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