精华内容
下载资源
问答
  • 一个表格怎么拆成多个
    2020-06-23 00:30:29

    工作中有时候会碰到需要把一张大的表格(行数多)分拆成多个表格的情况,虽然不太符合常理,如果一张表格太大,数据导出的时候就应该拆好,但实际上基于各种原因还是会碰到。

    python脚本,比较简单也比较好理解,就是一个筛选导出的过程

    import pandas as pd
    from pandas import DataFrame,Series
    data=pd.read_excel("待拆分原始数据.xlsx")
    long=data.count()[0]
    e=int(input("分拆后每个excel表有几行")) 
    #data['字段']=data['字段'].astype(str) #excel表格超过15位就会变成文本形式,如果有超过18位的数字需要加上一句
    n=int(long/e)+1
    for i in range(n):
        x=data[i*e:(i+1)*e]#最后一行无法除尽也没关系
        x.to_excel(str(i+1)+"数据.xlsx",index=False)#这里+1也是为了命名看起来舒服点,从1开始命名
    

    VBA脚本
    写的又臭又长,也没想到好的写法,方法是先把待拆分的表格复制多份,然后分别打开表再删掉多余的行,注意第一个比较特殊。把待拆分的表和写着代码的工作表放在同一个文件夹下。

    Sub 拆分全()
    t1 = Timer
    Workbooks.Open (ThisWorkbook.Path & "/原始.xlsx")   '不一定要
    r = 1 '表头,1是比较合理的,就算不是1页可以调成1 
    b = 40000  '拆分后每个表格的行数
    a = ActiveWorkbook.Worksheets(1).UsedRange.Rows.Count
    ActiveWorkbook.Close
    l = Int(a / b) + 1 'l表示需要拆分成几个文件
    
    For i = 1 To l
    FileCopy ThisWorkbook.Path & "/原始.xlsx", ThisWorkbook.Path & "/" & i & ".xlsx"
    Next i
    Application.ScreenUpdating = False ',True屏幕会闪,这段在复制
    
    fn = ThisWorkbook.Path & "/" & 1 & ".xlsx"   
    Workbooks.Open (fn)
    With ActiveWorkbook.Worksheets(1)
        Rows(r + b + 1 & ":" & 1048576).Select
        Selection.Delete Shift:=xlUp
    End With
    ActiveWorkbook.Close savechanges:=True
        '1比较特殊,1只需要删后面的,不用删前面的,所以这里有点重复
     
    For i = 2 To l
        fn = ThisWorkbook.Path & "/" & i & ".xlsx"   
        Workbooks.Open (fn)
        With ActiveWorkbook.Worksheets(1)
            Rows(r + 1 & ":" & r + (i - 1) * b).Select
            Selection.Delete Shift:=xlUp              
            Rows(r + b + 1 & ":" & 1048576).Select
            Selection.Delete Shift:=xlUp
         End With
         ActiveWorkbook.Close savechanges:=True
    Next i
    Application.ScreenUpdating = True
    
    t2 = Timer
    MsgBox "程序运行共用了:" & t2 - t1 & "秒!"
    End Sub
    
    
    更多相关内容
  • VBA将一个表格拆分成多个表格

    千次阅读 2021-04-21 09:58:16
    背景:业务给了一个表格,里面几十万条数据,要拆分成百上千个小表格,思来想去,vba做这件事是效率最高的。 样表数据源: 请按照这个表头在excel中制作样表(最好将样表放在一个空文件夹里面) 然后调出VB编辑器...

    背景:业务给了一个大表格,里面几十万条数据,要拆分成成百上千个小表格,思来想去,vba做这件事是效率最高的。

    样表数据源:
    在这里插入图片描述
    请按照这个表头在excel中制作样表(最好将样表放在一个空文件夹里面)
    然后调出VB编辑器,输入如下代码运行

    Sub 按A列区分内容并拆分到新表格()
    
    Dim i%
    
    arr = Sheets(1).[a1].CurrentRegion
    
    Set d = CreateObject("scripting.dictionary")
    
    For i = 2 To UBound(arr)
    
    If d.exists(arr(i, 1)) Then  '判断key是否存在
    
    Set d(arr(i, 1)) = Union(d(arr(i, 1)), Rows(i))  '如果存在则将前面相同key的行和当前key对应的行合并成一个对象
    
    Else
    
    Set d(arr(i, 1)) = Union(Rows(1), Rows(i))   '如果不存在则把表头拿过来和当前行合并成一个对象
    
    End If
    
    Next i
    
    For ss = 0 To d.Count - 1
    
    Workbooks.Add
    
    With ActiveWorkbook
    
    d.items()(ss).Copy .Sheets(1).[a1]   '将列A每一个值对应的行单独拿出来,粘贴复制到一个新表格
    
    .SaveAs ThisWorkbook.Path & "/" & d.keys()(ss)  '每个新表格的名字是列A的每一个值
    
    .Close
    
    End With
    
    Next ss
    
    MsgBox "工作薄拆分完毕!"
    
    End Sub
    

    运行结果如下:
    在这里插入图片描述
    一个表格拆成7个小表格

    补充第二个情景:
    按照每10行做为一个表格,切分成多个表格

    Sub 按A列区分内容并拆分到新表格()
    
    Dim i%
    arr = Sheets(1).[a1].CurrentRegion
    For i = 2 To UBound(arr)
    If i Mod 10 = 0 Then
    Workbooks.Add
    With ActiveWorkbook
    Union(Workbooks("test.xlsx").Sheets(1).Range("a1:e1"), Workbooks("test.xlsx").Sheets(1).Range("a" & (i - 9) & ":e" & i)).Copy .Sheets(1).[a1]
    .SaveAs ThisWorkbook.Path & "/" & i
    
    .Close
    
    End With
    End If
     
    Next i
    
     
    MsgBox "工作薄拆分完毕!"
    
    End Sub
    
    
    展开全文
  • CSV表格拆分,可以把一个CSV文件按固定行数拆分成多个文件
  • excel中拆分为多个表格的代码 工作中我们可能会遇到需要将一个整合的工作表拆分 例如:不同地区的数据需要不同的负责人等,如果需要拆分为2-3个表格还可以手动拆分,但是很多表格以上就浪费时间了,教你一秒拆分...

    excel中拆分为多个表格的代码

    • 工作中我们可能会遇到需要将一个整合的工作表拆分
    • 例如:不同地区的数据需要不同的负责人等,如果需要拆分为2-3个表格还可以手动拆分,但是很多表格以上就浪费时间了,教你一秒拆分表格✨
    • 如下代码👇:
      在这里插入图片描述
    展开全文
  • 【Python数据分析】利用Python实现EXCEL一个表格按条件拆分为多个表格。想获取代码文件,请微信关注微信公众号“闲谈项目管理”,对话框回复“数据分析案例1”即可获得文件下载链接。

            如何将EXCEL的一个表格,按照一定的条件分成多个表格?你是不是还在筛选—复制—新建—粘贴—保存?如果一个EXCEL表格有几万行数据,这个重复性工作够占用你几天时间了。

            今天与大家分享利用Python数据分析3分钟搞定,不管你数据有多少,代码总是那么几行。不多说了,上案例。

           现在有一个汇总的销售额,需要按月份拆解为3个表格,原表格数据如下:

    1. 根据这个要求,可利用Python的pandas模块实现,代码如下:

    1. 第一行代码是引入pandas模块,简写为pd;
    2. 第二行代码是要进行分类的原文件名称,注意需要带上格式;
    3. 第三行代码读取EXCEL表格文件;
    4. 第四行代码是拆分依据;
    5. 第五行至第7行代码,是一个for循环语句,将拆分的数据不断写入新的表格中。

           7行代码便可轻松实现所要完成的任务,如果你经常碰到此类工作任务,稍微改一下文件名和筛选条件就可以实现利用Python自动办公了,程序运行后结果如下。

            想获取代码文件,请微信关注微信公众号“闲谈项目管理”,对话框回复“数据分析案例1”即可获得文件下载链接。

    展开全文
  • 一、原始数据表如下(sheet页名称为:数据源),需要根据B列人员所属组织拆分每个组织一个工作表。 二、进入VBE编辑页面 三、插入一个新的模块。 四、在模块1窗口粘入如下代码 ,并保存 五、通过【开发者工具】...
  • 主要为大家详细介绍了Python将一个Excel拆分为多个Excel,具有一定的参考价值,感兴趣的小伙伴们可以参考一下
  • 部分 个子表单 以下涉及代码转自...
  • 此宏可以将一个EXCEL文件拆分成多个文件,运行宏后会提示拆分的列号,与标题行数,并将拆分后的文件命名为“列名+当前文件名”。文件中有宏的解说,供大家讨论
  • 如何将一个Excel工作表的数据按一列的关键字拆分...工具/材料:Microsoft Office Excel2016版,Excel文档。1、首先选中Excel文档,双击打开。2、然后在该界面中,选中要拆分的单元格。3、之后在该界面中,点击上方...
  • Excel表格怎么将一个单元格拆分2个?Excel表格单元格的合成和拆分是最常使用的两个功能,那么如何使用Excel表格表格的拆分有填写内容的单元格呢?如何将一个有内容的单元格拆分呢?一般我们都是拆分空单元格,如果...
  • 本程序代码的功能是将一个EXCEL工作簿拆成多个工作表。
  • 1.如下图Word表格为产品销售表,现在我们想要将这Word表格拆分为两个表格。 2.将Word表格复制份到Excel中。 3.点击下图选项(Excel工具箱,百度即可了解详细的下载安装信息,本文这里就不做...
  • 1.首先一般人都是没有安装VBA宏插件的,此时我们就需要先下载并安装一个wps VBA宏插件,安装成功后;(直接百度搜索下载并安装即可,网上很,示例如下)安装插件成功后,需要关闭wps再打开,就可以看到宏已经安装...
  • 2、excel表格保留一行标题行,并把第一列数据填写为拆分项(文件拆分时将按第一列的内容进行归类合并为一个文件),整个表格不要合并单元格; 3、在打开的EXCEL工作表名称上点右键选择查看代码; 4、选择菜单栏:...
  • excel表格怎么分成多个表格

    千次阅读 2021-09-19 21:01:30
    今天跟大家分享一下excel表格怎么分成多个表格? 1.打开演示文件,要求将表格数据按照部门拆分为多个表格。 2.第步鼠标选中下图选项 3.第二步 点击【汇总拆分】-【拆分工作表】 4....
  • vba实现工作表拆分多个工作薄

    千次阅读 2022-04-24 20:13:39
    、源表展示: 二、代码部分: Sub text() Dim WK As Workbook Dim sh As Worksheet Dim a As Integer For Each sh In ThisWorkbook.Worksheets Set WK = Workbooks.Add i = i + 1 Workbooks(1).Sheets(i)...
  • 前不久好几位朋友都问到,如何将一个EXCEL文件里面很多条数据拆分成多个文件,比如一个EXCEL表里面有90万行数据,需要按照每1万行拆分成一个文件,也就是需要将这表里面的90万行数据拆分到90个文件里面。这个如果...
  • 办公的时候想要合并多个Excel表格一个个来拷贝粘贴,如果文件很多就要花很多时间,前面试了很多种方法,先用office和Python,感觉还是有点麻烦,后面自己写了shell脚本。
  • 概要:我们经常面对很多 Word 文档,有些 Word 文档有几百页,有时候我们希望将这些 Word 文档都按固定的页数拆分成多个 Word 文档。有没有种简单的方法能够批量的将这些 Word 文件批量的拆分成多个 Word 文档呢?...
  • excel表格怎么分为多个表格

    千次阅读 2021-10-28 20:00:55
    今天跟大家分享一下excel表格怎么分为多个表格? 1.打开excel文件,要求将如下图表格文件快速拆分为多个独立表格 2.首先我们点击如下图选项 3.点击【汇总拆分】-选择【拆分工作表】 4...
  • 表格拆分的两种方式 拆分成多个excel工作表或多个excel文件 拆分Excel,可以分为3种层次:拆分excel单元格;拆分成多个excel工作表;拆分成多个excel文件 其中,第1种拆分是无法完成的,因为单元格是excel中的最小...
  • 概要:「我的ABC软件工具箱」提供了文档拆分的功能,其中就包括了 Excel 拆分成多个文件,可以根据需要指定拆分后的每个文件最多的 Sheet 数,这样可以把一个文档分成多个独立的文档。非常的方便与实用。 前面我们...
  • 要将很多个表格合并到一个表格,我们是否是复制粘贴呢?这个对数量少的表格可以,数量大就有点浪费时间了,接下来零壹学长给大家介绍,将多个表格合并到一个表格的几种方法。如下方表格,要将他们合并到一个表格。1 ...
  • 根据dataframe某列或列进行拆分,获得小dataframe后从大到小排序,取前90%,再合并成一个大的dataframe
  • 拆分前 开始步骤 开发工具--Visual Basic...Private Sub 分工作表() Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook For Each sht In MyBook.Sheets sht.Copy ActiveW...
  • Excel表格按行数拆分为多个文件

    千次阅读 2021-07-05 09:57:46
    此代码只适用微软的Office Excel软件,WPS...在点击代码界面上边的绿色小箭头运行代码就可以进行拆分表格了。 Sub ZheFenSheet() Dim r, c, i, WJhangshu, WJshu, bt As Long r = Range("A" & Rows.Count).E
  • 如何将excel中的一个工作表按照某列拆分成多个sheet工作表呢?接下来就利用VBA工具来解决这个问题。 拆分之前的工作表: 拆分之后的工作表: 操作步骤具体如下: 第一步:打开需要拆分的表格文件:点击“开发工具...
  • Excel 多个sheet拆分成多个单独的Excel

    千次阅读 2019-10-16 16:57:35
    Excel 多个sheet拆分成多个单独的Excel 【Excel】.xlsx格式文件拆分 右击单个工作表,选择“查看代码”,贴入如下VB code,点击Run Private Sub 分工作表() Dim sht As Worksheet Dim MyBook As Workbook Set ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 33,697
精华内容 13,478
热门标签
关键字:

一个表格怎么拆成多个