Excel表格全部隐藏了 写一个vb脚本 每次取消隐藏十行

以下是一个简单的VB脚本，可以每次取消隐藏10行。

Sub UnhideRows()
Dim i As Integer
Dim lastRow As Integer

'获取表格中最后一行的行数
lastRow = ActiveSheet.UsedRange.Rows.Count

'循环取消隐藏10行
For i = 1 To 10
If ActiveSheet.Rows(lastRow).Hidden = True Then
ActiveSheet.Rows(lastRow).Hidden = False
End If
lastRow = lastRow - 1
Next i
End Sub

使用方法：

1. 打开Excel表格，按下Alt+F11进入VB编辑器界面；
2. 在左侧的窗口中选择需要取消隐藏行的表格所在的工作簿；
3. 在菜单栏中选择“插入”-“模块”，在新建的模块中复制上述代码；
4. 返回Excel表格，按下Alt+F8打开宏窗口，选择刚才创建的宏（UnhideRows），并点击运行按钮；
5. 每次运行该宏，将会取消隐藏10行，直到所有隐藏行都被取消隐藏。

相关问题

Excel表格全部隐藏了 写一个vb脚本 每次取消隐藏实行

以下是一个简单的VB脚本，可以用来取消Excel表格的隐藏。

Sub UnhideAllSheets()

    '循环遍历所有工作表
    For Each ws In Worksheets
    
        '如果工作表被隐藏，则取消隐藏
        If ws.Visible = xlSheetHidden Then
            ws.Visible = xlSheetVisible
        End If
    
    Next ws

End Sub

将此代码复制并粘贴到Excel的VBA编辑器中（按下Alt + F11打开）。然后保存代码并关闭编辑器。现在，每当您需要取消Excel表格中的隐藏时，只需打开Visual Basic编辑器（Alt + F11），并在项目浏览器中双击该工作簿，然后单击F5或单击运行按钮即可执行该脚本。