excel自动分表

1、工具/原料 · Excel操作步骤： 1. 1原始数据表如下（名称为：数据源），需要根据B列人员姓名拆分成每个人一个工作表。步骤阅读 2. 2点击【开发工具】-【Visual Basic】或者Alt+F11的快捷键进入VBE编辑界面。步骤阅读 3. 3如下图所示插入一个新的模块。步骤阅读 步骤阅读 4. 4如下图，粘贴下列代码在模块中：Sub CFGZB()    Dim myRange As Variant    Dim myArray    Dim titleRange As Range    Dim

2、 title As String    Dim columnNum As Integer    myRange = Application.InputBox(prompt:="请选择标题行：", Type:=8)    myArray = WorksheetFunction.Transpose(myRange)    Set titleRange = Application.InputBox(prompt:="请选择拆分的表头，必须是第一行，且为一个单元格，如：“姓名”",

3、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

4、-1        If Sheets(i).Name <> "数据源" Then            Sheets(i).Delete        End If    Next i    Set d = CreateObject("Scripting.Dictionary")    Arr = Worksheets("数据源&qu

5、ot;).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&qu

6、ot;)        conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName        Sql = "select * from 数据源$ where " & title & " = '" & k(i) & "'&quo

7、t;        Worksheets.Add after:=Sheets(Sheets.Count)        With ActiveSheet            .Name = k(i)            For num = 1 To UBound(myArray)                .C

8、ells(1, num) = myArray(num, 1)            Next num            .Range("A2").CopyFromRecordset conn.Execute(Sql)        End With        Sheets(1).Select        Sheets(1).Ce

9、lls.Select        Selection.Copy        Worksheets(Sheets.Count).Activate        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _                          &#

10、160;    SkipBlanks:=False, Transpose:=False        Application.CutCopyMode = False    Next i    conn.Close    Set conn = Nothing    Application.DisplayAlerts = True    Application.ScreenUpdating = TrueEnd Sub步骤阅读 5. 5如下图所示，插入一个控件按钮，并指定宏到刚才插入的模块代码。步骤阅读 步骤阅读 6. 6点击插入的按钮控件，根据提示选择标题行和要拆分的列字段，本例选择“姓名”字段拆分，当