拆分表格、合并多个表格？用VBA只须几秒钟

正文

请到「今天看啥」查看全文

For x = 1 To Sheets.Count

If Sheets(x).Name <> "总表" Then

Sheets(x).Visible = -1

End If

Next x

End Sub

Sub 隐藏 ()

For x = 1 To Sheets.Count

If Sheets(x).Name <> "总表" Then

Sheets(x).Visible = 0

End If

Next x

End Sub

---

2、根据模板批量生成日报表

根据模板批量生成报表，没什么好方法，只能一个一个的复制然后修改名称。但这对VBA来说，只需点一下按钮即可瞬间完成。

请到「今天看啥」查看全文