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

最新推荐文章于 2025-02-25 10:08:59 发布

FakeOccupational

最新推荐文章于 2025-02-25 10:08:59 发布

阅读量1.5k

点赞数 6

分类专栏：各种脚本文章标签： excel

本文链接：https://blog.csdn.net/ResumeProject/article/details/137274874

版权

各种脚本专栏收录该内容

11 篇文章

订阅专栏

打开开发工具功能

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

在这里插入图片描述

代开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