打开开发工具功能

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

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

另存为【.xlsm】文件

• 选择【返回】
  

CG

• 还可以进行录制