《自动按列分组拆分excel工作表》.docxVIP

白动按列分组拆分excel工作表 可以将一个excel X作表按照指定列分组拆分成多个工作表，甚至可 以将已经拆分的多个工作表再次拆分成单独的 excel文件。略懂一些 编程语言的可以将代码改编，以达到批量拆分多个工作表，或者批量 合并多个excel文件、工作表，有了 vbs的支持，只要你想的到就能 做的到！拷贝代码时请注意白动换行格式。 白动拆分工作表 白动创建文件夹 白动保存单独的excel文件至文件夹 白动过滤空行，如果存在大量集中的空行请尽量删除空行， 因为大量 空行会影响运行效率 使用方法：打开待拆分的excel文档，按 ALT+F11进入vba模式，鼠 使用方法：打开待拆分的 标选【插入】---【模块】c for Applications 标选【插入】 ---【模块】 c for Applications - .卸用户百体四） r 瘩模块? E类模块? 1 j 文件心… 在右侧新建的模块内 将准备好的代码粘贴进去，然后按标题行和待分组的列标题。 将准备好的代码粘贴进去，然后按 标题行和待分组的列标题。 F5,直接运行。此时会让你选择 Al；A_[__10606*106071()608M琴W 孝拳皿台拧碧眉中雯B Z U字体BDAAC0D3BAZD5UB001w ■B J UG1ASF^Uk3004AAE003AAE135BAZS05BAZ8041060910610106111061210613 Al ；A_[__ 10606 *10607 1()608 M琴W 孝拳皿台拧碧眉中 雯 B Z U 字体 B D AAC0D3 BAZD5 UB001 w ■ B J U G1 A S F ^Uk3004 AAE003 AAE135 BAZS05 □615 10618 E BAZ804 10609 10610 10611 10612 10613 10614 — A . | v tS互旦 」圭 §中* 1 - % ， .DO 字体 刘齐方式 D BAZSQ4 AkBOOl 1D06 10607 10613 10614 10615 10616 .0609 1DB10 .0611 10612 选完确定开始白动拆分，此时鼠标会不停闪动，根据文档大小，运行 段时间，并不是死机,般会有几分钟时间，如果你的文档有上万 段时间，并不是死机, 般会有几分钟时间，如果你的文档有上万 行那会更久。你只需关注文档所在目录是否已经白动创建文件夹并创 建excel文件。 vbs代码开始 Sub CFGZB() Dim myRange As Variant Dim myArray Dim titleRange As Range Dim title As String Dim ShName As String Dim columnNum As Integer myRange = Application.InputBox(prompt:= 请选择标题行: , Type:=8) myArray = WorksheetFunction.Transpose(myRange) Set titleRange = Application.InputBox(prompt:=请选择拆分的表头，必须是第一行，且为 一个单元格，如：姓名 , Type:=8) title = titleRange.Value columnNum = titleRange.Column Application.Volatile ShName = ActiveSheet.Name Application.ScreenUpdating = False Application.DisplayAlerts = False Dim i, Myr, Arr, num Dim d, k For i = Sheets.Count To 1 Step -1 If Sheets(i).Name ShName Then Sheets(i).Delete End If Next i Set d = CreateObject(Scripting.Dictionary) Myr = Worksheets(ShName).UsedRange.Rows.Count Arr = Worksheets(ShName).Range(Cells(2, columnNum), Cells(Myr, columnNum)) For i = 1 To UBound(Arr) d(Arr(i, 1))= Next k = d.keys For i = 0 To UBound(k) If k(i) Then Set conn = CreateObject(adodb.connection) conn.Open pro