打开开发工具功能

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

代开VBA编辑器

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

插入模块

编写代码

所有sheet

• 关闭

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

• 打开

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

指定sheet

• 关闭

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

• 打开

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

另存为【.xlsm】文件

• 选择【返回】
  

CG

• 还可以进行录制