所有的质变都是来自量变的积累，每天学一点点，每天进步一点点。
今天要说的是，如何根据某一列将一个Exce工作表拆分成多个工作表。
举栗子，
以下这么一份总表，需要按照班级将其拆分成多个单独的表，一个班级为一个表。
你会按照班级一个一个地筛选复制出来吗？
班级少，这种操作还可以。如果班级多，有几十个班级，显然这种方法就不适用。
那么，怎么操作比较省时省力？
Excel的数据透视表功能就可以帮我们完成这个工作。
操作步骤：
一、添加辅助列
将需要作为拆分标准的列复制一列，作为辅助列。
本例中是要按班级拆分，故将班级列拷贝一列作为辅助列。
二、创建数据透视表
全选表格，点击【插入】—【数据透视表】，选择放置数据透视表的位置在【新工作表】。
三、设置数据透视表
1、设置字段
将字段的辅助列拖动至【筛选】区域，其它字段都拖至【行】区域。
2、整理报表布局
◆点击【设计】：
【报表布局】设置为“以表格形式显示”和“重复所有项目标签”；
【分类汇总】设置为“不显示分类汇总”；
【总计】设置为“对行和列禁用”。
◆点击【分析】：
“隐藏+/-按钮”。
四、拆分报表
利用显示报表筛选页功能来快速实现拆分报表。
即：点击【分析】—【选项】—【显示报表筛选页】，
所有的班级报表就都拆分出来了。
拆分出来的班级报表，都是数据透视表格式。
如果说，不想最后拆分出来的工作表是以数据透视表这种格式保存，
那么，可以最后再加一步删除数据透视格式。
五、删除数据透视表格式
1、选择所有拆分出来的班级工作表，
即按住shift键，点选第一个工作表的标签和最后一个工作表的标签；
2、点击A1单元格左上角的三角形符号选择所有表格内容；
3、先复制，后粘贴为数值。
这么操作后，表格就删除了数据透视表格式，转化为普通格式了。
最后，把表格美化一下就好了。
#学浪计划# #Excel#
头条搜索真心方便，有啥问题搜一搜，马上出结果，点击下方卡片搜索“快速拆分工作表”，第一条就是答案！

目录

一、原始数据表如下（sheet页名称为：数据源），需要根据B列人员所属组织拆分成每个组织一个工作表。

二、进入VBE编辑页面

三、插入一个新的模块。

四、在模块1窗口粘入如下代码 ,并保存

五、通过【开发者工具】，插入窗口按钮

 六、点击【按钮】，选择第一行，继续选择【组织】单元格即可

七、在第四部粘贴代码进去后，直接点击​ 运行也可以，按提示选择行和单元格，效果一样。

 八、将多个sheet表拆分为独立表格

 

一、原始数据表如下（sheet页名称为：数据源），需要根据B列人员所属组织拆分成每个组织一个工作表。



 二、进入VBE编辑页面

通过【开发工具】>>【查看代码】进入编辑页面
	
通过【右击】sheet页名称，选择【查看代码】进入编辑页面
	
通过ALT+F11进入编辑页


 

三、插入一个新的模块。



四、在模块1窗口粘入如下代码 ,并保存

Sub CFGZB()
    Dim myRange As Variant
    Dim myArray
    Dim titleRange As Range
    Dim title As Variant
    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.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 <> "数据源" Then
          
        End If
    Next i
    Set d = CreateObject("Scripting.Dictionary")
    Myr = Worksheets("数据源").UsedRange.Rows.Count
    Arr = Worksheets("数据源").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)
        Set conn = CreateObject("adodb.connection")
        conn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
        Sql = "select * from [数据源$] where " & title & " = '" & k(i) & "'"
        Worksheets.Add after:=Sheets(Sheets.Count)
        With ActiveSheet
            .Name = k(i)
            For num = 1 To UBound(myArray)
                .Cells(1, num) = myArray(num, 1)
            Next num
            .Range("A2").CopyFromRecordset conn.Execute(Sql)
        End With
        Sheets(1).Select
        Sheets(1).Cells.Select
        Selection.Copy
        Worksheets(Sheets.Count).Activate
        ActiveSheet.Cells.Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
    Next i
    conn.Close
    Set conn = Nothing
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub




五、通过【开发者工具】，插入窗口按钮





 六、点击【按钮】，选择第一行，继续选择【组织】单元格即可



 





七、在第四部粘贴代码进去后，直接点击 运行也可以，按提示选择行和单元格，效果一样。

 八、将多个sheet表拆分为独立表格

如果要将已经拆分为多个sheet页的excel表格中的sheet页拆分为多个独立的表格，只需要在编辑其中新增模块，粘贴如下代码并执行，等待片刻即可
Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub

 

有一个5000条数据的表，要把它变成没1000条数据一个表的5等份。

假设：表名：xuesi   主键：kid 

xuesi共有5000条数据，kid从1到5000自动增长 

题目：将xuesi分成5个表 每个表1000条不同的数据

方法1： 

create table xuesi1 select * from xuesi order by kid limit 0,1000; 

create table xuesi2 select * from xuesi order by kid limit 1000,1000; 

create table xuesi3 select * from xuesi order by kid limit 2000,1000; 

create table xuesi4 select * from xuesi order by kid limit 3000,1000; 

create table xuesi4 select * from xuesi order by kid limit 4000,1000;

以上方法 是根据大表xuesi的主键kid 创建了xuesi1,xuesi2,xuesi3,xuesi4,xuesi5 五等份的小表 

不足：primary key 属性丢失

方法2： 

create table xuesi1 like xuesi; 

insert into xuesi1 select  *  from xuesi order by limit 0,1000; 

create table xuesi2 like xuesi; 

insert into xuesi2 select  *  from xuesi order by limit 1000,1000; 

create table xuesi2 like xuesi; 

insert into xuesi3 select  *  from xuesi order by limit 2000,1000; 

create table xuesi3 like xuesi; 

insert into xuesi4 select  *  from xuesi order by limit 3000,1000; 

create table xuesi5 like xuesi; 

insert into xuesi5 select  *  from xuesi order by limit 4000,1000;

   最近遇到一个需求：用户以Excel方法导入数据，所导入的数据需要按某个值拆分成主从表的关系，故数据的存储也要分成主从表存在数据库中；在网找了很久，没有找到更好的办法，于是只好借鉴网上的部分想法做了些加工，以备忘记1
public DataTable dt = new DataTable();

        /// <summary>

        /// 数据源表结构

        /// </summary>

        /// <returns></returns>

        private DataTable CreateTb()

        {

            DataTable tb = new DataTable();

            tb.Columns.Add("UUID");

            tb.Columns.Add("PARENT_UUID");

            tb.Columns.Add("MASTER_DESC1");

            tb.Columns.Add("MASTER_DESC2");

            tb.Columns.Add("SUB_DESC1");

            tb.Columns.Add("SUB_DESC2");

            tb.Columns.Add("SUB_DESC3");

            return tb;

        }
        /// <summary>

        /// 拆分后主表数据结构

        /// </summary>

        /// <returns></returns>

        private DataTable CreateParentTb()

        {

            DataTable tb = new DataTable();

            tb.Columns.Add("UUID");

            tb.Columns.Add("PARENT_UUID");

            tb.Columns.Add("MASTER_DESC1");

            tb.Columns.Add("MASTER_DESC2");

            return tb;

        }
        /// <summary>

        /// 拆分后子表结构

        /// </summary>

        /// <returns></returns>

        private DataTable CreateSupTb()

        {

            DataTable tb = new DataTable();

            tb.Columns.Add("UUID");

            tb.Columns.Add("PARENT_UUID");

            tb.Columns.Add("SUB_DESC1");

            tb.Columns.Add("SUB_DESC2");

            tb.Columns.Add("SUB_DESC3");

            return tb;

        }
        /// <summary>

        /// 数据源（待拆分的数据）

        /// </summary>

        /// <returns></returns>

        private DataTable retDt()

        {

            DataTable dt = CreateTb();

            DataRow row = null;

            for (int i = 0; i < 6; i++)

            {

                int j = 0;

                if (i % 2 == 0)//PARENT_UUID 的值，按PARENT_UUIDsss1、PARENT_UUIDsss2分组

                    j = 0;

                else

                    j = 1;

                row = dt.NewRow();

                row["UUID"] = System.Guid.NewGuid().ToString();

                row["PARENT_UUID"] = "PARENT_UUIDsss" + j.ToString() ;

                row["MASTER_DESC1"] = "MASTER_DESC1" + i.ToString();

                row["MASTER_DESC2"] = "MASTER_DESC2" + i.ToString();

                row["SUB_DESC1"] = "SUB_DESC1" + i.ToString();

                row["SUB_DESC2"] = "SUB_DESC2" + i.ToString();

                row["SUB_DESC3"] = "SUB_DESC3" + i.ToString();

                dt.Rows.Add(row);

            }

            return dt;

        }
        /// <summary>

        /// 测试

        /// </summary>

        /// <param name="mesg"></param>

        public void SeparateDt(out string mesg)

        {

            mesg = string.Empty;

            DataTable sourceData = retDt();

            DataTable parentDt = CreateParentTb();

            DataTable subDt = CreateSupTb();

            string parentUuid = string.Empty;

            string subUuid = string.Empty;
            try

            {

                IEnumerable<IGrouping<string, DataRow>> results = sourceData.Rows.Cast<DataRow>().GroupBy<DataRow, string>

                    (dr => dr["PARENT_UUID"].ToString());//按PARENT_UUID分组

                foreach (IGrouping<string, DataRow> ig in results)

                {

                    //处理主表

                    DataRow parentRow = parentDt.NewRow();

                    parentUuid = System.Guid.NewGuid().ToString();

                    parentRow["UUID"] = parentUuid;

                    parentRow["PARENT_UUID"] = ig.Key;

                    parentRow["MASTER_DESC1"] = "MASTER_DESC1".PadRight(20);

                    parentRow["MASTER_DESC2"] = "MASTER_DESC2".PadRight(20);
                    parentDt.Rows.Add(parentRow);

                    //处理子表

                    foreach (var dr in ig)

                    {

                        DataRow subRow = subDt.NewRow();

                        subUuid = System.Guid.NewGuid().ToString();
                        subRow["UUID"] = subUuid;

                        subRow["PARENT_UUID"] = parentUuid;

                         subRow["SUB_DESC1"] = dr["SUB_DESC1"].ToString();

                        subRow["SUB_DESC2"] = dr["SUB_DESC2"].ToString();

                        subRow["SUB_DESC3"] = dr["SUB_DESC3"].ToString();
                       subDt.Rows.Add(subRow);

                    }

                }

                mesg = "主表：" + parentDt.Rows.Count.ToString() + "条记录；" + "子表：" + subDt.Rows.Count.ToString() + "条记录";

            }

            catch (Exception ex)

            {

                mesg = "程序有问题：" + ex.Message;

            }

        }