excel中怎么样按某一列的数据自动分成多个工作簿,保留原表的表头。

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了excel中怎么样按某一列的数据自动分成多个工作簿,保留原表的表头。相关的知识,希望对你有一定的参考价值。

参考技术A

利用宏来解决,思路是:

    先计算要依据分表的列有多少非重复值,也就说要分成多少个表

    通过循环筛选出所有不重复的值及其他的数据,粘贴到新sheet或新工作簿中。

附件里有两个宏,一个是在同一文件中分成多个sheet,一个是分成单独的多个excel文件


参考技术B 是工作簿 还是工作表 参考技术C 这个要用宏才可以。 参考技术D 饱满匆帜淀粉酶侵只

Excel表格中依据某一列的值,将这列中一样的数据放在一个文件中。

一需求:按照标题C的内容,一样的数据整理到一个文件中。

技术图片

二.操作:

1.atl+F11弹出vb窗口

技术图片

2.点击       插入===》模块   ,复制以下代码,注意这是一个表头为三行的函数(保存)

Sub 保留表头拆分数据为若干新工作簿()
    Dim arr, d As Object, k, t, i&, lc%, rng As Range, c%
    
    ‘获取分割列的索引
    c = Application.InputBox("刘刚:请输入拆分列号", "刘刚:输入框", 1, , , , , 1)
    
    ‘如果分割列的索引是0退出程序
    If c = 0 Then Exit Sub
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ‘取a1附近所有的数据
    arr = [a1].CurrentRegion
    ‘取有多少列 可以将arr看做是数组,数组的第二个维度就是列的个数
    lc = UBound(arr, 2)
    
    ‘取标题(从a1开始取去几行几列)(如果是一行标题,就把下行的3改成1,几行标题就写几)
    Set rng = [a1].Resize(3, lc)
    Set d = CreateObject("scripting.dictionary")
    
    ‘从标题行之下开始循环遍历不同的值(i =  标题行+1    如三行标题就是 4)
    For i = 4 To UBound(arr)
        If Not d.Exists(arr(i, c)) Then
            Set d(arr(i, c)) = Cells(i, 1).Resize(1, lc)
        Else
            Set d(arr(i, c)) = Union(d(arr(i, c)), Cells(i, 1).Resize(1, lc))
        End If
    Next
    
    k = d.Keys
    t = d.Items
    
    For i = 1 To d.Count
        With Workbooks.Add(xlWBATWorksheet)
            ‘从哪个单元格开始复制内容
            rng.Copy .Sheets(1).[a1]
            
            ‘真正的内容从标题下开始复制(4   表示标题行+1,几行标题行就改成几+1)
            t(i - 1).Copy .Sheets(1).[a4]
            .SaveAs Filename:=ThisWorkbook.Path & "\\" & k(i - 1) & "计算机学院2019年‘劳动节‘假期学生去向登记表" & ".xls"
            .Close
        End With
    Next
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
    MsgBox "成功执行"
End Sub

3.点击Excel中的文件按钮。
技术图片

4.点击选项

技术图片

4.自定义功能区,勾选开发工具,点击确定

技术图片

5.切换到开发工具选项卡

技术图片

6.点击插入,选择图片指示控件

技术图片

7.随便一个位置,拖动一下,选择刚才定义的宏,确定

技术图片

8.点击按钮即可

技术图片

9.效果,我们输入3

技术图片

10.最后的效果(同文件目录下出现拆分文件)

技术图片

 

以上是关于excel中怎么样按某一列的数据自动分成多个工作簿,保留原表的表头。的主要内容,如果未能解决你的问题,请参考以下文章

怎样使excel表格内容按某一列排序

Excel根据某一列数据,自动分成多张表格

怎样批量提取excel中每个工作簿的倒数第二行?

EXCEL中SQL Server Where 使用某一列的数据作为 查询条件的命令?

Excel表格中依据某一列的值,将这列中一样的数据放在一个文件中。

一个Excel工作簿中的多个工作表怎么拆分成独立表格