精华内容
下载资源
问答
  • 一、原始数据如下(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

     

    展开全文
  • mysql将一个表拆分成个表

    万次阅读 2018-07-28 18:00:03
    mysql如何将一个表分成多个表?表的拆分,根据一个大表的数据创建多个分批的小表,假设有一个5000条数据的表,要把它变成没1000条数据一个表的5等份。create table....select....order by....limit...

    有一个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;

    展开全文
  • 一个list分成多个list

    千次阅读 2019-03-11 15:19:00
    一个list或其他集合按需分成多份,例如,分批发送等,是很常见的需求,但是Java传统的集合操作似乎没有提供这一支持。 幸好,google guava 和apache commons collections都提供了相应的实现。 方法一:guava...

    将一个list或其他集合按需分成多份,例如,分批发送等,是很常见的需求,但是Java传统的集合操作似乎没有提供这一支持。

    幸好,google guava 和apache commons collections都提供了相应的实现。

    方法一:guava实现,将一个list按三个一组分成N个小的list

    代码块 @Test ​ public void givenList_whenParitioningIntoNSublists_thenCorrect() { ​ List<Integer> intList = Lists.newArrayList(1, 2, 3, 4, 5, 6, 7, 8); ​ List<List<Integer>> subSets = Lists.partition(intList, 3); ​

    ​ List<Integer> lastPartition = subSets.get(2); ​ List<Integer> expectedLastPartition = Lists.<Integer> newArrayList(7, 8); ​ assertThat(subSets.size(), equalTo(3)); ​ assertThat(lastPartition, equalTo(expectedLastPartition)); ​ } 方法二:guava分割其他collections

    代码块 @Test ​ public void givenCollection_whenParitioningIntoNSublists_thenCorrect() { ​ Collection<Integer> intCollection = Lists.newArrayList(1, 2, 3, 4, 5, 6, 7, 8); ​

    ​ Iterable<List<Integer>> subSets = Iterables.partition(intCollection, 3); ​

    ​ List<Integer> firstPartition = subSets.iterator().next(); ​ List<Integer> expectedLastPartition = Lists.<Integer> newArrayList(1, 2, 3); ​ assertThat(firstPartition, equalTo(expectedLastPartition)); ​ } 以上需要注意的是,partition返回的是原list的subview.视图,也即,原list改变后,partition之后的结果也会随着改变。

    代码块 @Test ​ public void givenListPartitioned_whenOriginalListIsModified_thenPartitionsChangeAsWell() { ​ // Given ​ List<Integer> intList = Lists.newArrayList(1, 2, 3, 4, 5, 6, 7, 8); ​ List<List<Integer>> subSets = Lists.partition(intList, 3); ​

    ​ // When ​ intList.add(9); ​

    ​ // Then ​ List<Integer> lastPartition = subSets.get(2); ​ List<Integer> expectedLastPartition = Lists.<Integer> newArrayList(7, 8, 9); ​ assertThat(lastPartition, equalTo(expectedLastPartition)); ​ } 方法三:使用apache commons collection

    代码块 @Test ​ public void givenList_whenParitioningIntoNSublists_thenCorrect() { ​ List<Integer> intList = Lists.newArrayList(1, 2, 3, 4, 5, 6, 7, 8); ​ List<List<Integer>> subSets = ListUtils.partition(intList, 3); ​

    ​ List<Integer> lastPartition = subSets.get(2); ​ List<Integer> expectedLastPartition = Lists.<Integer> newArrayList(7, 8); ​ assertThat(subSets.size(), equalTo(3)); ​ assertThat(lastPartition, equalTo(expectedLastPartition)); ​ } 1.没有对应的Iterable.partions方法,类似guava那样

    2.partition后的结果同样是原集合的视图。

    方法四:Java8方法。(在Java stream 中有讲。)

    a.通过grouping by

    代码块 @Test ​ public final void givenList_whenParitioningIntoNSublistsUsingGroupingBy_thenCorrect() { ​ List<Integer> intList = Lists.newArrayList(1, 2, 3, 4, 5, 6, 7, 8); ​

    ​ Map<Integer, List<Integer>> groups = ​ intList.stream().collect(Collectors.groupingBy(s -> (s - 1) / 3)); ​ List<List<Integer>> subSets = new ArrayList<List<Integer>>(groups.values()); ​

    ​ List<Integer> lastPartition = subSets.get(2); ​ List<Integer> expectedLastPartition = Lists.<Integer> newArrayList(7, 8); ​ assertThat(subSets.size(), equalTo(3)); ​ assertThat(lastPartition, equalTo(expectedLastPartition)); ​ } 按年龄分组:

    代码块 Map<Integer, List<Person>> personGroups = Stream.generate(new PersonSupplier()). ​ limit(100). ​ collect(Collectors.groupingBy(Person::getAge)); ​ Iterator it = personGroups.entrySet().iterator(); ​ while (it.hasNext()) { ​ Map.Entry<Integer, List<Person>> persons = (Map.Entry) it.next(); ​ System.out.println("Age " + persons.getKey() + " = " + persons.getValue().size()); ​ } b.通过partition by

    代码块 @Test ​ public void givenList_whenParitioningIntoSublistsUsingPartitionBy_thenCorrect() { ​ List<Integer> intList = Lists.newArrayList(1, 2, 3, 4, 5, 6, 7, 8); ​

    ​ Map<Boolean, List<Integer>> groups = ​ intList.stream().collect(Collectors.partitioningBy(s -> s > 6)); ​ List<List<Integer>> subSets = new ArrayList<List<Integer>>(groups.values()); ​

    ​ List<Integer> lastPartition = subSets.get(1); ​ List<Integer> expectedLastPartition = Lists.<Integer> newArrayList(7, 8); ​ assertThat(subSets.size(), equalTo(2)); ​ assertThat(lastPartition, equalTo(expectedLastPartition)); ​ } 按照成年人与未成年人分组:

    代码块 Map<Boolean, List<Person>> children = Stream.generate(new PersonSupplier()). ​ limit(100). ​ collect(Collectors.partitioningBy(p -> p.getAge() < 18)); ​ System.out.println("Children number: " + children.get(true).size()); ​ System.out.println("Adult number: " + children.get(false).size()); 注意:

    1.Java8方式,分组后的list不再是原list的视图。所以,原list的改变不会影响分组后的结果。

    2partitioningBy 其实是一种特殊的 groupingBy,它依照条件测试的是否两种结果来构造返回的数据结构,get(true) 和 get(false) 能即为全部的元素对象

    转载于:https://my.oschina.net/u/1000241/blog/3020830

    展开全文
  • 有的元件需要分成多个部分来画,orcad中有两种类型画法,一种是Homogeneous类型元件画法(各部分相同),一种是Heterogeneous类型元件画法(各部分不同)。 ** Homogeneous类型元件画法(各部分相同,只需画一个部分) ** ...

    有的元件需要分成多个部分来画,orcad中有两种类型画法,一种是Homogeneous类型元件画法(各部分相同),一种是Heterogeneous类型元件画法(各部分不同)。

    **

    Homogeneous类型元件画法(各部分相同,只需画一个部分)

    **

    在library中选中.olb文件,点击右键-new part。
    在这里插入图片描述
    在出现的对话框中填写元件名称,pkg填写需分成几个部分,类型选择Homogeneous。
    在这里插入图片描述
    点击OK,出现A部分
    在这里插入图片描述
    画好A部分后,点击工具栏view-packge
    在这里插入图片描述
    出现B部分,B部分与A部分相同
    在这里插入图片描述
    点击保存即可。

    **

    Heterogeneous类型元件画法(各部分不同,每个部分都要画)

    **
    在library中选中.olb文件,点击右键-new part。在出现的对话框中填写元件名称,pkg填写需分成几个部分,类型选择Heterogeneous。
    在这里插入图片描述
    单击OK,出现A部分,画好A部分后点击view-package
    在这里插入图片描述
    选择B部分, B部分仍是空白,需要重新画
    在这里插入图片描述
    画好B部分后,点击保存即可。
    在这里插入图片描述

    展开全文
  • js将一个数组分成多个数组

    千次阅读 2019-03-19 17:23:00
    1,将数组array分成长度为subGroupLength的小数组并返回新数组 function group(array, subGroupLength) { let index = 0; let newArray = []; while(index < array.length) { newArray.push(a...
  • 一个DataTable,想把1~10,11~20,21~30 行拆成3个新的DataTable,除了循环遍历之外,有更好的方法么?
  • 一个list分成多个list的Java实现。

    万次阅读 2017-05-29 13:04:19
    一个list或其他集合按需分成多份,例如,分批发送等。是很常见的需求。但是Java传统的集合操作似乎没有提供这一支持。幸好,google guava 和apache commons collections都提供了相应的实现。 方法一:guava实现,...
  • 组数据平均分成n组 /** * 将组数据平均分成n组 * * @param source 要分组的数据源 * @param n 平均分成n组 * @param &lt;T&gt; * @return */ public static &lt;T&gt; List&lt;...
  • EXCEL一个单元格内容分成多个单元格

    千次阅读 2013-12-02 06:38:22
    选择:数据->分列 anxi
  • 如果我们需要将一个列表按指定数目分成多个列表:比如[1,2,3,4,5,6,7,8,9,10]分成[1,2,3][4,5,6][7,8,9][10],我们可以建立一个列表分割的函数split_list.py。def list_of_groups(init_list, children_list_len): ...
  • 一个页面分成多个html文件(静态html分割页面)

    万次阅读 多人点赞 2016-06-19 14:54:12
    静态html分割页面,达到类似PHP等动态页面的include引入页面效果。 用html把首页分成文件
  • 现在一个项目,是要求手机端向智能手表发送byte[]数组,一个很大的byte数组,比如16*1024个字节,如何分成多个部分,比如每个部分都是200字节,然后把这几个部分一部分部分的发到手表端,就是byte[]数组分块,发送的...
  • 有时候,芯片引脚比较,需要将一个元器件分成若干个部分,具体该怎么操作呢?下面我们来看看。 正常画原理图封装,就是tool-new component,在此页面中画原理图封装的一部分,然后点tool-new part,在此页面画另一...
  • # 将云主机分类存在一个列表中 for name in istack_list : new_df = pd . DataFrame ( ) for i in range ( 0 , rows ) : if data [ "istack" ] [ i ] == name : new_df = pd . concat...
  • Python3 中,一行可以书写多个语句 语句之间用分号隔开即可 ...Python3 中,一个语句可以分成多行书写 一行过长的语句可以使用反斜杠或者括号分解成几行 3 > 4 and \ 1 < 2 ( 3 > 4 ...
  • 以LM358芯片为例: 把LM358原理图的A和B分开画,分成A和B两个Part如图: 操作步骤 1、在原理图库添加一个原理图: 2、选中,点击工具——新部件: 3、分别在partA/B里面绘制原理图库即可
  • 这二天我碰到一个用BBSGOOD的用户,他的SQL数据库达到了14G,帖子量400万,用户量等其它数据也都达到上百万,这个时候恐怕你的论坛性能好不到那里去的,肯定像牛一样慢得可怜,在这里,我就是要提醒我们的SQL用户...
  • excel如按某列拆分成多个工作表(支持多列),或多个Excel文件,或按某几列拆分成多个文件。 使用这个在线工具,无需vba,不用复杂的透视表,地址:http://www.excelfb.com/,点击:(按指定列)拆分成多个表 ...
  • //初始化一个目标list List<String> arrayList = new ArrayList<>(); for (int i = 0; i <= 231; i++) { arrayList.add(i + ""); } //分割多少,计算一共会有多少页 in...
  • Excel多个工作簿合成为一个工作

    万次阅读 2020-08-21 14:02:20
    Excel多个工作簿合成为一个工作 目录 前言 第一步:多张工作簿合并成一个“汇总工作簿”,操作如下: 第二步:把多张sheet合并成一张sheet工作,操作如下: 总结 前言 在工作中,我们会遇到这种情况,...
  • dayDf = borrowManageMoneyDf[borrowManageMoneyDf['... monthDf = borrowManageMoneyDf[borrowManageMoneyDf['pzType'].isin([0])]以上实例,按borrowManageMoneyDf这dataframe的列:pzType的取值划分成两小的da
  • 可以发现上图“单元这行”有三不同的值,我想以这列为主键,分成文件,文件名以主键内容命名,输入如下图: 对于GO7-33-286.csv、GO7-35-226.csv、GO7-37-166.csv这三文件内容,分别如下: 实现代码...
  • 目标: 根据dataframe中某列中不同的值,按照值来划分为 多个小的dataframe 步骤:  1. 将dataframe中某列中不同的值,以列表的形式返回;  代码: listType = data['type'].unique() ——返回list,里面...
  • 嗨,今天打开多个excel文档时候发现个不能多独立窗口展示小弊病,经过顿咔咔咔的操作,算是解决了,下面分享给大家。 1、首先win7版本点击【开始】菜单-点击[运行]按钮,在输入框里面输入“regedit.exe”打开...
  • 有时候需要在一个工作簿中建立多个工作表,并且需要自定义工作表的名称,手动的一个个双击表名去修改非常麻烦,特别是这次我需要建立一百多个表的时候。。。。 方法一:使用数据透视表功能 方法二 使用VB写模块...
  • Excel2010分成两个或者多个独立窗口

    万次阅读 2019-08-26 12:23:52
    在借鉴了很多个baidu方法之后,使用修改注册表之后我的Excel终于可以独立窗口出来了。 转自:www.xuexila.com/excel/2010/2051008.html 方法如下: 本操作需要修改注册表,请在修改之前导出要修改的项目以备份。 1....
  • excel将一个工作根据条件拆分成多个sheet工作

    万次阅读 多人点赞 2018-09-27 16:36:45
    本例介绍在excel中如何将一个工作根据条件拆分成多个工作。 注意:很多朋友反映sheets(i).delete这句代码出错,要注意下面第一个步骤,要拆分的数据工作名称为“数据源”, 而不是你新建工作簿时的sheet1...
  • 利用python可以快速将一个工作拆分成多个工作。 具体如何操作呢? 举个栗子: 需要拆分的工作簿为"chaifengzb",里面有一个“总”,字段包含“分公司”“日期”“商品名称”…(可以有n个字段)。表格内容包含...
  • js将一个数组分成二维数组

    千次阅读 2017-12-13 15:03:10
    例如:let dataArray = [1,2,3,4,5,6,7,8,9,10,11,12,...将这数组分成modifyArray = [[1,2,3,4,5,6,7],[8,9,10,11,12,13,14]]; let data = [3, 6, 4, 5, 6, 99, 55, 45, 33, 22, 90, 12, 54, 23, 33, 243, 2324, 12,

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 702,021
精华内容 280,808
关键字:

一个表分成多个表