四个办公神技，一个更比一个牛

1、批量生成工作表

简要说明：

• 生成数据透视表

• 将文本拖动到筛选字段

• 显示报表筛选页

2、批量文件重命名

简要说明：

• 用公式='ren '&A2&' '&B2生成重命名的批处理命令

• 粘贴到记事本

• 将后缀名txt修改为bat，双击

• 注意：ren后面有一个空格，不要漏掉

• 如果文件名中有空格，此方法会失灵哦。

• 如果文件名称中有空格，需要使用其他公式，老祝先看看小伙伴们有没有这个需要哈。

3、批量生成工作簿

简要说明：

• 在VBE界面中输入以下代码：

Sub newbooks()

    Dim i&, p$, temp$

    On Error Resume Next

    Application.ScreenUpdating = False

    p = ThisWorkbook.Path & '\'

    For i = 2 To Cells(Rows.Count, 1).End(3).Row

        temp = Cells(i, 1) & '.xlsx'

        With Workbooks.Add

            .SaveAs p & temp

            .Close False

        End With

    Next

    Application.ScreenUpdating = True

End Sub

• 执行代码即可生成指定名称的工作簿。

4、批量生成文件夹

简要说明：

• 用公式='MD '&A2生成批处理命令

• 粘贴到记事本

• 将后缀名txt修改为bat，双击

• 注意：MD后面有一个空格，不要漏掉

好了，今天的分享就是这些吧，祝各位一天好心情！

还是那句老话，光说不练假把式，一定要试试哦~~

图文制作：祝洪忠

---