Excel自动化拆分工作表

Sub 拆分工作表()Dim str As String
Dim dic
Dim rng, cell As RangeSet dic = CreateObject("Scripting.Dictionary")str = ActiveWorkbook.PathApplication.ScreenUpdating = FalseApplication.DisplayAlerts = FalseOn Error Resume NextLine1:Set rng = Application.InputBox(prompt:="请选择要拆分的列：" & Chr(13), Type:=8)If IsEmpty(rng) Or rng Is Nothing ThenExit SubEnd IfDo While rng.Columns.Count > 1MsgBox "提示：选择区域超过一列，请重新选择！"Set rng = NothingGoTo Line1LoopFor Each cell In Range(rng(2), rng(rng.Count).End(xlUp))dic(cell.Value) = 1NextFor Each Item In dicActiveSheet.AutoFilterMode = FalseActiveSheet.UsedRange.AutoFilter Field:=rng.Column, Criteria1:=ItemActiveSheet.UsedRange.CopyWorkbooks.AddWith Selection.PasteSpecial Paste:=xlPasteColumnWidths.PasteSpecial Paste:=xlPasteValues.PasteSpecial Paste:=xlPasteAllUsingSourceThemeEnd WithActiveWindow.SplitRow = 1ActiveWindow.FreezePanes = TrueApplication.CutCopyMode = False'自适应列宽'ActiveSheet.UsedRange.EntireColumn.AutoFitIf Dir(str & "\拆分", vbDirectory) = "" ThenMkDir str & "\拆分"End IfActiveWorkbook.SaveAs Filename:=str & "\拆分\电商名单_" & Item'ActiveWorkbook.SaveAs Filename:=str & "\拆分\错误点位详情_" & item'ActiveWorkbook.SaveAs Filename:=str & "\拆分\成本录入_" & item, FileFormat:=xlCSV'ActiveWorkbook.SaveAs Filename:=str & "\拆分\展示广告促销（2017.2-7.24）- " & Item & ".xlsx"ActiveWorkbook.SaveActiveWorkbook.CloseNextActiveSheet.AutoFilterMode = FalseApplication.DisplayAlerts = TrueApplication.ScreenUpdating = TrueEnd Sub

把上面代码直接copy到excel的宏中运行，在窗口中选数据源对应列（根据哪一列拆分选哪一列），点击运行即可

Excel自动化拆分工作表相关推荐

excel快速拆分工作表
今天跟大家分享一下excel快速拆分工作表 1.打开演示文件,要求将表格拆分开. 2.点击下图选项 3.点击[汇总拆分]-[拆分工作表] 4.将[表头行数]设置为4 5.最后点击[确定]即可完成 6. ...
Excel·VBA按行拆分工作表
对应之前文章<Excel·VBA按列拆分工作表>,对Excel表格数据按照固定行数,将工作表拆分工作表按行拆分为工作表 Sub 工作表按行拆分为工作表()'当前工作表(worksheet ...
个人永久性免费-Excel催化剂功能第23波-非同一般地批量拆分工作表
工作薄的合并,许多Excel插件已有提供,Excel催化剂也提供了最佳的解决方案,另外还有工作薄的拆分和工作表的拆分,同样也是各大插件必备功能. 至于工作薄拆分,那是伪需求,Excel催化剂永远只会带 ...
excel职称计算机应用,2017职称计算机考试Excel辅导：工作表的编辑
2017职称计算机考试Excel辅导:工作表的编辑工作表是显示在工作簿窗口中的表格.一个工作表可以由1048576行和2464列构成.接下来应届毕业生小编为大家搜索整理了2017职称计算机考试Exc ...
利用慧办公拆分工作表教程
有时我们想根根据某一列拆分工作表,利用软件可以进行批量操作,提高效率. 首先需要安装慧办公.安装成功之后打开excel会显示在菜单栏中如下图下面利用慧办公拆分表被拆分后的表如下显示,多个工作表就是被 ...
2019秋季计算机应用基础,2019年秋季考试《计算机应用基础》在线考核试题在Excel 2010的工作表中...
2019年秋季考试<计算机应用基础>在线考核试题在Excel 2010的工作表中 (12页) 本资源提供全文预览,点击全文预览即可全文预览,如果喜欢文档就下载吧,查找使用更方便哦! 14 ...
excel多个工作表求和案例
http://www.ittribalwo.com/article/1068.html 内容提要:本文用5个小例子来描述excel多个工作表求和的实际应用. 本文对常见的excel多个工作表求和,给出 ...
Microsoft Excel 教程「3」：如何在 Excel 中打印工作表？
欢迎观看 Microsoft Excel 教程,小编带大家学习 Microsoft Excel 的使用技巧,了解如何在 Excel 中打印工作表. 可打印全部或部分工作表,可一次打印一个,也可一次打印 ...
excel链接隐藏工作表_自动隐藏Excel工作表
excel链接隐藏工作表 When you build a workbook for other people to use, there might be worksheets that can s ...

Excel自动化拆分工作表

Excel自动化拆分工作表相关推荐

最新文章

热门文章