专栏名称: Excel之家ExcelHome
excel技巧原创教程每日推送,excel表格职场模板干货仓库,图文/视频/动画等多种教学方式分享excel操作技巧教程/excel函数公式教程/excel数据透视表教程/excel图表教程/Word教程,助您轻松提高办公效率!
目录
相关文章推荐
Excel之家ExcelHome  ·  接入DeepSeek以后,我的Excel真的 ... ·  2 天前  
完美Excel  ·  在Excel和Word中集成deepseek ·  4 天前  
Excel之家ExcelHome  ·  告别DeepSeek ... ·  4 天前  
Excel之家ExcelHome  ·  DeepSeek办公自动化:一秒生成工作表目录 ·  3 天前  
Excel之家ExcelHome  ·  70岁老妈用DeepSeek变身‘AI达人’ ... ·  5 天前  
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、批量生成文件夹







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