目录
 
一、原始数据表如下（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;

 
 
 
  
2019独角兽企业重金招聘Python工程师标准>>>  
 
 
 
 
将一个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类型元件画法(各部分相同，只需画一个部分)
 
**
 
在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部分后，点击保存即可。