小鹏_哒哒哒

批量取消隐藏的sheetAlt+F11，单击插入，模块，运行 Sub ShowSheets()For Each Sheet In SheetsSheet.Visible = ...