专栏名称: Excel之家ExcelHome
excel技巧原创教程每日推送,excel表格职场模板干货仓库,图文/视频/动画等多种教学方式分享excel操作技巧教程/excel函数公式教程/excel数据透视表教程/excel图表教程/Word教程,助您轻松提高办公效率!
目录
相关文章推荐
完美Excel  ·  解决因时间引起的求和问题 ·  3 天前  
Excel之家ExcelHome  ·  LOOKUP函数的几个典型应用 ·  6 天前  
Excel之家ExcelHome  ·  用函数公式生成超链接 ·  6 天前  
Excel之家ExcelHome  ·  1分钟,批量创建指定名称的工作表 ·  1 周前  
Excel之家ExcelHome  ·  精确替换还不会?拖出去罚站打屁屁 ·  1 周前  
51好读  ›  专栏  ›  Excel之家ExcelHome

最受欢迎的四个办公神技,你最钟爱哪一个?

Excel之家ExcelHome  · 公众号  · Excel  · 2017-05-05 08:07

正文

话说天下武功,唯快不破,今天就和大家分享四个最常用的批量处理文件的技巧:


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后面有一个空格,不要漏掉

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

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

图文制作:祝洪忠




PPT美化设计 - 第5期
公开课时间:2017-5-5(晚上20:00~22:00)
正式课时间:2017-5-14 —— 2017-5-28
课程详情:
http://t.excelhome.net/thread-44987-1-1.html
免费报名公开课:http://t.excelhome.net/thread-44988-1-1.html

QQ交流群:246666939

报名正式课咨询QQ:4000049448

推荐文章
完美Excel  ·  解决因时间引起的求和问题
3 天前
Excel之家ExcelHome  ·  LOOKUP函数的几个典型应用
6 天前
Excel之家ExcelHome  ·  用函数公式生成超链接
6 天前
Excel之家ExcelHome  ·  1分钟,批量创建指定名称的工作表
1 周前
Excel之家ExcelHome  ·  精确替换还不会?拖出去罚站打屁屁
1 周前
中央广电总台中国之声  ·  一个艾滋病患者的一天
7 年前