精华内容
下载资源
问答
  • 一、原始数据表如下(sheet页名称为:数据源),需要根据B列人员所属组织拆分成每个组织一个工作表。 二、进入VBE编辑页面 三、插入一个新的模块。 四、在模块1窗口粘入如下代码 ,并保存 五、通过【开发者工具】...

    目录

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

    二、进入VBE编辑页面

    三、插入一个新的模块。

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

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

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

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

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


     

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

     二、进入VBE编辑页面

    1. 通过【开发工具】>>【查看代码】进入编辑页面
    2. 通过【右击】sheet页名称,选择【查看代码】进入编辑页面
    3. 通过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表拆分为独立表格

    1. 如果要将已经拆分为多个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

     

    展开全文
  • 前面我们已经掌握了单元格、工作表、按钮关联宏的使用今天我们就做一综合案例 做案例之前我们先补充一点新知识 Cells(2,3) //表示两三列的单元格 Range(“a1”).offset(1,2)// 下移一,右移2 Range(...

    前面我们已经掌握了单元格、工作表、按钮关联宏的使用今天我们就做一个综合案例

    做案例之前我们先补充一点新知识

    • Cells(2,3) //表示两行三列的单元格
    • Range(“a1”).offset(1,2) // 下移一行,右移2行
    • Range(“a10”).end(xlup) //从a10往上数,有多少行已用
    • Range(“a10”).entirerow //选中a10的整行
    • Range(“a10”).resize(1,10) //重选区域
    • Range(“a10”).copy //复制
    • sheet1.Range("a:f").AutoFilter field:=4, Criteria1:="一车间" //'在sheet1中筛选第四列为一车间的数据。其中field是第x列,Criteria1是筛选条件。注意Criteria1最后一个是数字1

    案例

    题目:

    excel将下面叫做“数据”的工作表根据分类条件拆分成多个sheet工作表,表名为分类条件。

    excel将一个工作表根据分类条件拆分成多个sheet工作表

     

    结果如下:

    excel将一个工作表根据分类条件拆分成多个sheet工作表

     

    分析:

    1. 要新建所有分类表,在总表中循环每行,把要筛选的列值作为新建的表名, 每次循环要判断是否已存在表名,重复建表会报错
    2. 删除多余的表,不然每次执行会产生很多表比较混乱
    3. 需要筛选拷贝数据。

    注意:执行这段代码前必须选中总表即你要拆分的表,否则数据会遭到破坏

    代码:

    Sub chaifen()
      Dim i As Integer
        Dim j, k, irow, count As Integer
        Dim sht  As Worksheet
        Dim sht1  As Worksheet
        Dim x As Integer
        Dim sht0  As Worksheet
    
        Set sht0 = ActiveSheet
        
        x = InputBox("请选择你要按哪列分,第几列就填几")
        
        '执行分表前删除多余的表
        Application.DisplayAlerts = False
        If Sheets.count > 1 Then
            For Each sht1 In Sheets
                If sht1.Name <> sht0.Name Then
                 sht1.Delete
                 End If
            Next
            
        End If
        
        Application.DisplayAlerts = True
        
        
        '获取sheet1总行数
        irow = sht0.Range("a65536").End(xlUp).Row
        
         For i = 2 To irow
         '初始化k
            k = 0
            For Each sht In Sheets
            '判断是否已存在表名
                If sht.Name = sht0.Cells(i, x) Then
                k = 1
                End If
            Next
            '如果不存在表名就新建一个表
            If k = 0 Then
                Sheets.Add after:=Sheets(Sheets.count)
                Sheets(Sheets.count).Name = sht0.Cells(i, x)
            End If
            '筛选拷贝数据
             For j = 2 To Sheets.count
                sht0.Range("a1:f" & irow).AutoFilter field:=x, Criteria1:=Sheets(j).Name
                sht0.Range("a1:f" & irow).Copy Sheets(j).Range("a1")
                '关闭筛选
                sht0.Range("a1:f" & irow).AutoFilter
             Next
            
        Next
        sht0.Select
        
     End Sub
    

    注意:执行这段代码前必须选中总表即你要拆分的表,否则数据会遭到破坏

    这段案例代码的知识点有:

    1. Set sht0 = ActiveSheet
    2. irow = sht0.Range("a65536").End(xlUp).Row
    3. Sheets(Sheets.count).Name = sht0.Cells(i, x)
    4. sht0.Range("a1:f"&irow).AutoFilter field:=x, Criteria1:=Sheets(j).Name
    5. sht0.Range("a1:f" & irow).Copy Sheets(j).Range("a1")

    看了这篇文章觉得对你有用的话,关注我的公众号“学会数据分析”并且用你的小手帮忙分享一下。

    我会经常总结一些案例和大家一些分享。

    excel将一个工作表根据分类条件拆分成多个sheet工作表

     

    课件下载地址:

    链接永久有效:

    https://pan.baidu.com/s/1gAmb-z84vLh7u6X2mFY12Q

    提取码: t1km 复制这段内容后打开百度网盘手机App,操作更方便哦

    展开全文
  • Excel表格拆分,教你三绝招。

    万次阅读 2019-05-29 13:47:17
    2. 怎么把一张表里客户拆成多个工作表?有多少客户拆分成多少表…… 3. 想把一张表分成多张单独的表文件,除了新建复制还能怎么做? 遇到上面这类问题,我猜你是不是还在用Ctrl C和Ctrl V?数据少则还好,要是多...

    财务平时面对形形色色的Excel表,什么奇葩问题都能遇上,比如:

    1. 姓名和手机号码都连在一个格子里,怎么分开?

    2. 怎么把一张表里按客户拆成多个工作表?有多少客户拆分成多少表……

    3. 想把一张表分成多张单独的表文件,除了新建复制还能怎么做?

    遇到上面这类问题,我猜你是不是还在用Ctrl C和Ctrl V?数据少则还好,要是多则上百行数据,简直要复制粘贴到崩溃…

    今天,学习下面三招,秒拆单元格和表格!

    01

    拆分单元格内容

    姓名和手机号码连在一起,是最常见的一种表格形式

    操作步骤:

    先输入第一个姓名,选取它和下面的空行,按Ctrl+E,一秒搞定拆分!

    想合并在一起呢?先输入一行,再按按Ctrl+E,同样一秒完成!

    为什么Ctrl+E这么智能?

    因为它是excel2013新增功能“快速填充”的快捷键,它可以自动从字符中找规律,完成数据的提取或合并。

    02

    拆分成多个excel工作表

    这里有张各地区的销售总表,要求根据地区拆分成多个工作表保存,有多少地区就拆分多少张表。

    ▼原始表:

    ▼拆分后的表:

    操作步骤:

    1、生成数据透视表

    选取数据区域 - 插入 - 数据透视表

     

    2、数据透视表添加字段、调整格式

    将地区添加到筛选标签,其他的全部添加到行标签,不显示分类汇总,报表布局选“以表格样式”

    动画演示:

     

    3、拆分数据透视表

    数据透视表工具 - 选项 - 显示报表筛选页(excel2003版这个命令在右键菜单中)。点击该命令后会自动生成N个以地区这名称的工作表

    动画演示:

     

    4、数据表的整理

    全选拆分后的工作表,复制 - 粘贴 - 数值,最后删除前2行。

     

    03

    拆分成多个excel文件

    同样是上述情况,怎么拆分成独立的Excel表文件呢?那只能用VBA编写代码了。

    比如:把当前excel文件中除第1个工作外的所有工作表,均保存为单独的excel文件到3月文件夹中。

    拆分演示(在拆分过程中会画面会停几秒,请耐心等待)

    代码:

    Sub 拆分表格()

     Dim x As Integer

     Dim wb As Workbook

     Application.ScreenUpdating = False

     For x = 2 To 32

       Sheets(x).Copy

       Set wb = ActiveWorkbook

       With wb

        .SaveAs ThisWorkbook.Path & "/3月/" & Sheets(x).Name & ".xlsx"

        .Close True

       End With

     Next x

     Application.ScreenUpdating = True

    End Sub

    数据的拆分在实际工作很常用到,对工作效率也有很大影响,掌握一些方法可以节约很多时间。

    以上就是小编今天带来的拆分数据方法,希望可以帮助到大家

    品略图书馆 http://www.pinlue.com/

     

     

    展开全文
  • 社会各各业的**“表”姐们**在很多时候,会被领导要求把一张信息量巨大总表,一定的条件,拆分成多个工作表。比如我的领导要求我把下面这张“5年级在校生信息”“班级”分发给不同班主任: 大家通常的做法是...

    各行各业的“表”哥姐们在很多时候,会被领导要求把一张信息量巨大的总表,按一定的条件,拆分成多个工作表。比如我的领导要求我把下面这张“5年级在校生信息”按“班级”分发给不同班主任:
    在这里插入图片描述
    大家通常的做法是谨小慎微、不断重复地复制粘贴,直到老眼昏花、直到手抖犯错、直到不知错从何起而从头开始。
    如果领导让你处理的表是全校学生、全国各校区学生、全世界各校区学生呢?加班几个通宵才能把一张张表准确无误地搞定?

    这里是你的做法:
    在这里插入图片描述
    复制粘贴半小时后……
    在这里插入图片描述
    这里是我的做法,利用python中的pandas库,5行代码、1秒钟拆分工作表。
    效果演示视频:

    [video(video-Z7INdXls-1598882561826)(type-tencent)(url-https://v.qq.com/txp/iframe/player.html?vid=h3144xzab14)(image-http://puui.qpic.cn/vpic/0/h3144xzab14.png/0)(title-python 办公自动化:1秒钟搞定excel总表的拆分)]

    import pandas as pd
    df = pd.read_csv('5年级在校生信息.csv') #读取表
    for i in range (1,9): #8个班
    	save_data =df[df['班级']=='小学2016级'+str(i)+'班']
    	print('小学2016级'+str(i)+'班完成哒!!')
    	save_data.to_csv('小学2016级'+str(i)+'班.csv',encoding='utf_8_sig',index=False) 
    

    注意
    (1)for i in range (1,9)中,(1,9) 是一个前闭后开的区间,所以要获取8个班的数据,就需要修改数值为1:9。
    (2)新建的EXCEL表如果出现乱码,设置属性:encoding=‘utf_8_sig’。
    (3)若不希望新建的EXCEL表有行索引,那么设置index=False。

    展开全文
  • Excel新增工具集

    2011-12-20 09:30:27
    3、多个工作表中相同位置的(列)集中到同一表:本工作簿中有若干格式相同的表,为了便于观察各表相同位置数据的变化,可以首先用鼠标选定要观察的区域,然后执行本命令,则各工作表的同位置区域数据集中排列到同一...
  • 功能: 将当前工作表的数据条件拆分成多个工作表 特点: 1.可以自由选择条件所有列。 2.可以设定标题行数,标题不参与拆分。 3.可以自由定义折分条件。 4.可以选择折分成多工作表后是否保留原有公式。 工具: ...
  • 功能: 将当前工作表的数据条件拆分成多个工作表 特点: 1.可以自由选择条件所有列。 2.可以设定标题行数,标题不参与拆分。 3.可以自由定义折分条件。 4.可以选择折分成多工作表后是否保留原有公式。 工具: ...
  • Excel百宝箱

    2012-10-27 17:09:21
    【工作表折分】:将当前工作表的数据条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将指文件夹中所有工作簿中所有工作表数据合并起来。有两种合并方式:将每个工作簿中的工作表合到当前...
  • excel 工具箱

    2012-01-22 15:04:34
    【工作表折分】:将当前工作表的数据条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将指文件夹中所有工作簿中所有工作表数据合并起来。有两种合并方式:将每个工作簿中的工作表合到当前...
  • Excel高级工具箱

    2012-01-03 22:15:22
    功能: 将当前工作表的数据条件拆分成多个工作表 特点: 1.可以自由选择条件所有列。 2.可以设定标题行数,标题不参与拆分。 3.可以自由定义折分条件。 4.可以选择折分成多工作表后是否保留原有公式。 工具: ...
  • Excel百宝箱8.0

    2011-06-07 21:32:17
    【工作表折分】:将当前工作表的数据条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将指文件夹中所有工作簿中所有工作表数据合并起来。有两种合并方式:将每个工作簿中的工作表合到当前...
  • Excel VBA实用技巧大全 附书源码

    热门讨论 2010-10-08 18:59:24
    03008引用指定的多个工作表 03009引用新建的工作表 03010引用包含特定单元格的工作表 03011引用工作表名称中包含特定字符串的工作表 03012获取工作表名称 03013获取全部工作表名称 03014判断某个表是否为工作表 ...
  • 【工作表折分】:将当前工作表的数据条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将指文件夹中所有工作簿中所有工作表数据合并起来。有两种合并方式:将每个工作簿中的工作表合到当前...
  • EXCEL百宝箱.rar

    2012-12-24 14:07:37
    【工作表折分】:将当前工作表的数据条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将指文件夹中所有工作簿中所有工作表数据合并起来。有两种合并方式:将每个工作簿中的工作表合到当前...
  • ║ 【高级背景选择】 【工作表拆分】 【工作表解密】 【修复无效日期】 【播放FLASH】 ║ ║ 【快捷取数列】 【行列奇偶选择】 【VBA工程解密】 【工作表拆分文档】 【屏幕放大镜】 ║ ║ 【快捷取日期】 【查找与...
  • EXCEL函数公式集

    热门讨论 2010-03-16 03:26:38
    多个工作表的单元格合并计算 【条件自定义格式】 通过条件格式将小计和总计的设为不同的颜色 如何实现这样的条件格式 隔行不同字体颜色怎么设置 让不同类型数据用不同颜色显示 如何做这样的EXCEL表(颜色交叉) ...
  • EXCEL百宝箱8.0终极版

    2011-11-05 16:48:02
    【工作表折分】:将当前工作表的数据条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将指文件夹中所有工作簿中所有工作表数据合并起来。有两种合并方式:将每个工作簿中的工作表合到当前...
  • Excel通用工具2.2

    2005-12-02 10:36:26
    6、同一工作簿内工作表索引功能:当一个工作簿内的工作表数量较时,可以使用这个功能方便地切换到任一张工作表<BR>??7、同一工作表内单元格索引功能:当工作表很大时,可以使用本功能,以便在一张工作表按行或列...
  • 功能: 将当前工作表的数据条件拆分成多个工作表 特点: 1.可以自由选择条件所有列。 2.可以设定标题行数,标题不参与拆分。 3.可以自由定义折分条件。 4.可以选择折分成多工作表后是否保留原有公式。 工具: ...
  • 【工作表折分】将当前工作表的数据条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】将指文件夹中所有工作簿中所有工作表数据合并起来。有两种合并方式 【文本与数值互换】将选区的数字瞬间...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    【工作表拆分】 将当前工作表的某列数据指定条件拆分成多个工作表,可以用任意列的数据以及选定的数据做为拆分条件。 【行列奇偶选择】 可视化对当前工作表的与列进行快速的奇偶或奇偶列快速选定操作。 ...
  • 【工作表折分】:将当前工作表的数据条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将指文件夹中所有工作簿中所有工作表数据合并起来。有两种合并方式:将每个工作簿中的工作表合到...
  • 多个工作表的单元格合并计算 【条件自定义格式】 通过条件格式将小计和总计的设为不同的颜色 如何实现这样的条件格式 隔行不同字体颜色怎么设置 让不同类型数据用不同颜色显示 如何做这样的EXCEL表(颜色交叉) ...
  • • 数据列表按行排序 • 含有公式的数据排序 • 简单排序的例子 • 自定义排序 • “关系或”条件的高级筛选 • “关系与”条件的高级筛选 • 利用高级筛选选择不重复的记录 • 三“关系或”条件的高级筛选 • ...
  • Excel工具箱教学指导

    2014-03-27 23:07:35
    ║ 【条件背景】 【插入批注背景】 【读取批注内容】 【数字大写转小写】 【多个休闲动画】 ║ ║ 【条件背景选择】 【插入行数】 【监控单元格修改】 【筛选复制可见】 【关闭所有动画】 ║ ║ 【高级背景】 【注解...
  • excel百宝箱 正版

    2013-04-04 23:39:28
    ║ 【条件背景】 【插入批注背景】 【读取批注内容】 【数字大写转小写】 【多个休闲动画】 ║ ║ 【条件背景选择】 【插入行数】 【监控单元格修改】 【筛选复制可见】 【关闭所有动画】 ║ ║ 【高级背景】 【注解...
  • 技巧13 在多个工作表间快速切换 技巧14 限定工作表中的可用范围 技巧15 批量取消隐藏多个工作表 技巧16 彻底隐藏工作表 技巧17 让工作表永远显示表格标题 技巧18 标题的重复打印 技巧19 多窗口协同...
  • 【工作表拆分】 将当前工作表的某列数据指定条件拆分成多个工作表,可以用任意列的数据以及选定的数据做为拆分条件。 【行列奇偶选择】 可视化对当前工作表的与列进行快速的奇偶或奇偶列快速选定操作。 ...
  • 【工作表拆分】 将当前工作表的某列数据指定条件拆分成多个工作表,可以用任意列的数据以及选定的数据做为拆分条件。 【行列奇偶选择】 可视化对当前工作表的与列进行快速的奇偶或奇偶列快速选定操作。 ...

空空如也

空空如也

1 2 3 4 5
收藏数 98
精华内容 39
关键字:

excel按行拆分成多个工作表