excel自動分表

1、工具/原料 · Excel操作步驟： 1. 1原始數(shù)據(jù)表如下（名稱為：數(shù)據(jù)源），需要根據(jù)B列人員姓名拆分成每個人一個工作表。步驟閱讀 2. 2點擊【開發(fā)工具】-【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 <> "數(shù)據(jù)源" Then            Sheets(i).Delete        End If    Next i    Set d = CreateObject("Scripting.Dictionary")    Arr = Worksheets("數(shù)據(jù)源&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 數(shù)據(jù)源$ 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點擊插入的按鈕控件，根據(jù)提示選擇標題行和要拆分的列字段，本例選擇“姓名”字段拆分，當