精华内容
下载资源
问答
  • CSV表格拆分,可以把一个CSV文件按固定行数拆分成多个文件
  • 表格拆分的两种方式 拆分成多个excel工作表或多个excel文件 拆分Excel,可以分为3种层次:拆分excel单元格;拆分成多个excel工作表;拆分成多个excel文件 其中,第1种拆分是无法完成的,因为单元格是excel中的最小...

    表格拆分的两种方式 拆分成多个excel工作表或多个excel文件

     拆分Excel,可以分为3种层次:拆分excel单元格;拆分成多个excel工作表;拆分成多个excel文件 其中,第1种拆分是无法完成的,因为单元格是excel中的最小单位。下面重点分享后2种拆分方法。 1、Excel表格拆分成多个excel文件 库表,包含N个客户的出库信息。

    现需要根据A列的客户名称拆分成N个表,有多少客户拆分成多少表。遇到这样的问题,有多少同学还在插入表 - 复制-粘贴? 其实,完成这个任务,再多客户也只需要最多1分钟。 第一步:创建数据透视表。按ctrl+a全选整个数据表,插入 - 数据透视表。为数据透视表添加字段,除客户名称外,其他的全添加到行标签里。

    第二步:调整格式。设置行标签重复,取消分类汇总,隐藏+-号

     

    第三步:拆分表格。数据透视表工具 - 选项 - 显示筛选页 -  在弹出的窗口中点确定。拆分自动完成。

    第四步:删除数据透视表格式。如果需要把数据透视表格式删除,全选取表格复制 - 粘贴为数值。最后删除前几行。

     

    2、工作表拆分成多个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

     

    转载于:https://www.cnblogs.com/FH-cnblogs/p/8884678.html

    展开全文
  • 因公司内部数据导入系统限制每一次导入的数据行数,故经常需要将一个几万行的表格拆分成多个,费事费力,所以写了一个小程序来进行自动拆分。我是一个产品经理,代码一点都不专业,就当交流学习了 #实现excel表格按...

    产品狗的Python之路
    (1):使用python将excel表格拆分成多个

    背景:
    因公司内部数据导入系统限制每一次导入的数据行数,故经常需要将一个几万行的表格拆分成多个,费事费力,所以写了一个小程序来进行自动拆分。我是一个产品经理,代码一点都不专业,就当交流学习了

    #实现excel表格按行数分拆的功能
    import openpyxl 
    #填入文件名
    excel_name_input=input("填写excel文件名称,限定为.xlsx格式 ")
    excel_name_open=excel_name_input+".xlsx"
    
    # 读取对应excel文件,应加入错误提示,待优化
    workbook=openpyxl.load_workbook(filename=excel_name_open)
    sheet_origin = workbook.active  #获取活跃的表格
    
    #获取原表格中限定条数据,并复制到新表格
    
    nrows = sheet_origin.max_row  # 最大行数
    ncols = sheet_origin.max_column  # 最大列数
    
    
    #总共需要多少excel
    
    limit=int(input("输入分页数据量 "))
    sheets = nrows / limit       
    if not sheets.is_integer():  #如果不是整除则需要+1
    	sheets = int(sheets) + 1
    
    
    for i in range(1,sheets+1):
    	wb =openpyxl.Workbook()
    	sheet = wb['Sheet']
    	# 写入第一行数据
    	for n in range(1,ncols+1):
    		sheet.cell(row=1,column=n).value=sheet_origin.cell(row=1,column=n).value
    	# 写入范围内数据
    	t=2+limit*(i-1)
    	num_index=2
    	for row_num in range(t,t+limit+1):
    		for col_num in range(1,ncols+1) :
    			sheet.cell(row=num_index,column=col_num).value=sheet_origin.cell(row=row_num,column=col_num).value
    		num_index=num_index+1
    	wb.save("{excelname}.xlsx".format(excelname=i))  
    
    print('已完成数据拆分')
    
    展开全文
  • 根据dataframe某列或列进行拆分,获得小dataframe后从大到小排序,取前90%,再合并成一个大的dataframe

    日拱一卒,功不唐捐

    知识点

    1. exec()
    2. enumerate()
    3. isin()
    4. concat()

    新创建DataFrame

    import datetime
    import pandas as pd
    import numpy as np
    
    #定义list拓展函数
    def list_extend(_list,times):
        OrginList=[_list for _i in range(times)]
        
        _extendList=[]
        
        for k,j in enumerate(OrginList):
            for i in j:
                _extendList.append(i)
            
        return _extendList
    
    # 定义日期循环函数
    def Date(start,end):
        _date=[]
        for i in range((end-start).days+1):
            _date.append(start + datetime.timedelta(days=i))
        return _date
    
    #创建DataFrame
    ShopName=["Sam's Club",'bravo','WU MART','Vangguard']
    start=datetime.date(2019,1,1)
    end=datetime.date(2019,6,1)
    
    data = pd.DataFrame({'ShopName':list_extend(ShopName,38),
                          'income':random.sample(list(range(0,200)),152),
                          'date':Date(start,end)})
    data.head(3)
    

    在这里插入图片描述


    1. 根据某列值拆分成多个表

    对商品进行分组,获取小dataframe

    for shop_index,temp_shop_info in enumerate(shop_info):
        #对ShopName商铺进行拆分
        temp_shop_data=data[data['ShopName'].isin([temp_shop_info])]
        exec("df%s=temp_shop_data"%shop_index)
        
    df1.head(4)
    

    在这里插入图片描述


    2. 根据多列值拆分成多个表

    先对商品进行分组,再对月份进行分组,获取小dataframe

    for shop_index,temp_shop_info in enumerate(shop_info):
        #对ShopName商铺进行拆分
        temp_shop_data=data[data['ShopName'].isin([temp_shop_info])]
        for month_index,temp_month_info in enumerate(month_info):
            #对month进行拆分
            temp_month_date=temp_shop_data[temp_shop_data['month'].isin([temp_month_info])]
            exec("df%s=temp_month_date"%month_index)
    
    df0
    

    在这里插入图片描述


    3. 多个DataFrame合并成一个大的DataFrame

    先对商品进行分组,再对月份进行分组,获取小dataframe,对income值从大到小排序,取前90%数据后获得新的dataframe,再把所有小dataframe合并成一个大的dataframe

    df_frames=[]
    for shop_index,temp_shop_info in enumerate(shop_info):
        #对ShopName商铺进行拆分
        temp_shop_data=data[data['ShopName'].isin([temp_shop_info])]
        for month_index,temp_month_info in enumerate(month_info):
            #对month进行拆分
            temp_month_date=temp_shop_data[temp_shop_data['month'].isin([temp_month_info])]
            #从大到小排队,取前90%
            temp_date=temp_month_date[0:int(len(temp_month_date)*0.9)]
            df_frames.append(temp_date)
        
    result=pd.concat(df_frames)
    result  
    
    展开全文
  • 一、原始数据表如下(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

     

    展开全文
  • python根据某列内容拆分成多个excel

    千次阅读 2019-08-06 16:42:01
    python根据某一列内容拆分成多个excel 一个excel根据某一列内容分成多个excel 例如有如下文件内容 然后我需要按照城市来切分表格, 也就是将这一张表分成6个excel! 接下来开始为大家展示代码部分! 这部分代码会...
  • 怎样将一个Word表格拆分为两个

    千次阅读 2013-11-25 15:20:06
    在Word中,我们可以把一个表格拆分为两个或者多个,这样,如果您的Word表格中数据过多,就可以通过拆分表格的形式,来方便我们浏览和查找数据。 方法一:将光标定位在分开的表格某个位置上,按下“Ctrl+Shift+Enter...
  • 很多人会在日常的工作中遇到这样的工作需求:需要将一个总表按“分公司/按月份”等拆分成多个工作簿,分发给对应的人员。一开始想到的方法是:第一步:先将总表拆分成多个子工作表,第二步:新建多个工作簿,把子...
  • 本程序代码的功能是将一个EXCEL工作簿拆成多个工作表。
  • 利用python可以快速将一个工作表拆分成多个工作表。 具体如何操作呢? 举个栗子: 需要拆分的工作簿为"chaifengzb",里面有一个“总表”,字段包含“分公司”“日期”“商品名称”…(可以有n个字段)。表格内容包含...
  • 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 ...
  • mysql将一个表拆分成多个

    千次阅读 2020-03-30 15:44:48
    一个5000条数据的表,要把它变成每1000条数据一个表的5等份。 假设:表名:xuesi 主键:kid xuesi共有5000条数据,kid从1到5000自动增长 题目:将xuesi分成5个表 每个表1000条不同的数据 方法1: create table ...
  • excel如按某列拆分成多个工作表(支持多列),或多个Excel文件,或按某几列拆分成多个文件。 使用这个在线工具,无需vba,不用复杂的透视表,地址:http://www.excelfb.com/,点击:(按指定列)拆分成多个表 ...
  • 在excel中要将一个工作表根据条件拆分成多个工作表没有很简单的办法,使用vba要上百行代码才能实现这个功能,在python中使用pandas的分组功能很简单就能实现拆分工作表。 原始表格如下: 经过拆分后,每个班级的...
  • 表格拆分 工具

    2014-12-20 16:23:07
    可以把表格的数据拆分成多个表格,对平时的数据统计会有很大的帮助。
  • 要将很多个表格合并到一个表格,我们是否是复制粘贴呢?这个对数量少的表格可以,数量大就有点浪费时间了,接下来零壹学长给大家介绍,将多个表格合并到一个表格的几种方法。如下方表格,要将他们合并到一个表格。1 ...
  • 一个Excel工作簿中的多个工作表(sheet)拆分如下图所示结果 打开需要拆分的excel,在任意工作表右击,点击“查看代码” 在打开的窗口中输入如下代码: Private Sub 分工作表() Dim sht ...
  • 如下图,将按不同的部门,将这个表拆分成一个部门一个excel文件。 分类筛选,复制粘贴,纯手工打造,完全可以实现。但是如果就一点数据,还可以,如果数量量大呢?操作到让你怀疑人生。 用python可以实现吗?当然...
  • 1.df表格一列按内容拆分成多列 采用onehot拆分 df1 = pd.get_dummies(df_test['product_category']) df_test = pd.concat([df_test,df1],axis=1) for cg in range(1,19): df_test[cg] = df_test[cg]*df_test['...
  • excel将一个工作表根据条件拆分成多个sheet工作表

    万次阅读 多人点赞 2018-09-27 16:36:45
    本例介绍在excel中如何将一个工作表根据条件拆分成多个工作表。 注意:很多朋友反映sheets(i).delete这句代码出错,要注意下面第一个步骤,要拆分的数据工作表名称为“数据源”, 而不是你新建工作簿时的sheet1...
  • 请教各位大神如何用R语言、EXCEL或者其他数据分析软件将表格按时间这列拆分时间长度为5分钟的表格?要求能够实现自动将表格按5分钟来进行拆分,同时表格拆分后要能够从左到右按顺序排列。非常感谢! ![图片...
  • excel同一个单元格内多行数据拆分成多个单元格多行排列1、全选表格2、工具栏选择数据 ->来自表格/区域3、选择要拆分的列,并点击拆分列4、上载 1、全选表格 2、工具栏选择数据 ->来自表格/区域 3、选择要拆分...
  • Python实现Excel拆成多个

    千次阅读 2020-10-13 16:57:51
    python将工作表根据列拆分成多个独立的sheet工作薄 、实现效果 接上篇,通过Python实现从Excel总表中根据条件拆分成独立的工作表。 二、代码实现 import pandas as pd import xlrd data = pd.read_excel(r"C:\...
  • 根据某列拆分Excel为多个表格

    万次阅读 2018-03-02 23:00:24
    选择任何一个该列的单元格即可", Type:=8) Dim columnNumToSplit As Long columnNumToSplit = splitColumnRange.Column ' 需要拆分的值字典 Dim splitValueDict As Object ' 辅助字典用来保证顺序 Dim ...
  • 将excel按照某列拆分成多个文件

    万次阅读 多人点赞 2018-01-23 16:53:38
    4.按住鼠标左键不动然后在excel中划定一个按钮区域,然后会自动弹出的窗口,选择刚才保存的宏,点击确定 5.鼠标从按钮上面移开 ,然后点击按钮输入要列号,就是根据哪列的数据进行拆分文件,下图...
  • 有时候需要在一个工作簿中建立多个工作表,并且需要自定义工作表的名称,手动的一个个双击表名去修改非常麻烦,特别是这次我需要建立一百多个表的时候。。。。 方法一:使用数据透视表功能 方法二 使用VB写模块...
  • 本例介绍在excel中如何将一个工作表根据条件拆分成多个工作表。
  • 实现一个sheet页拆分成多个sheet页: 1、如上图sheet表,首先把sheet页的表名修改为数据源 2、找到excel中 开发工具 > VB > 插入 > 模块 3、在白色空白处把以下代码复制进去,注意产出的sheet页名称...
  • word文档一个表格分割两个表格

    千次阅读 2018-05-21 13:08:00
    word文档一个表格分割两个表格 按住键盘上的ctrl+shift+enter即可快速实现分割表格效果。 posted @ 2018-05-21 13:08 stujike123456 阅读(...) 评论(...) 编辑 ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 28,741
精华内容 11,496
关键字:

一个表格怎么拆成多个