创建一个宏来取消隐藏工作表并清除已使用的行，重置工作簿

下面是一个示例宏，可用于取消隐藏工作表并清除已使用的行，并重置工作簿。

Sub ResetWorkbook()
    Dim ws As Worksheet
    
    ' 取消隐藏所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ws.Visible = xlSheetVisible
    Next ws
    
    ' 清除已使用的行
    For Each ws In ThisWorkbook.Worksheets
        ws.UsedRange.ClearContents
    Next ws
    
    ' 清除剪贴板中的内容
    Application.CutCopyMode = False
    
    ' 选择第一个工作表
    ThisWorkbook.Worksheets(1).Activate
    
    ' 重置工作簿
    ThisWorkbook.Saved = True
    ThisWorkbook.ChangeFileAccess xlReadOnly
    Kill ThisWorkbook.FullName
    ThisWorkbook.SaveAs ThisWorkbook.FullName, xlWorkbookDefault
End Sub

请注意，此宏将取消隐藏所有工作表，清除所有已使用的行，并重置工作簿。请确保在使用之前备份您的工作簿，以防意外删除了重要数据。