nnsea 发表于 2019-10-22 08:49:47

取消隐藏VBA

Sub 取消隐藏()For x = 1 To Sheets.CountIf Sheets(x).Name <> "总表" Then   Sheets(x).Visible = -1End IfNext xEnd Sub
页: [1]
查看完整版本: 取消隐藏VBA