求助！如何把工资表按部门拆分成若干个工作表

浮生若梦yy

求助！如何把工资表按部门拆分成若干个工作表？请教各位大师！！！1
原谅我看不懂帖子里的公式，小女子万分感谢

changhong8

见附件，看看可行

曹银强

Sub ADO()
Dim cnn As Object, rs As Object, i&, SQL$, sh As Worksheet, rng As Range
    Set rng = Rows(1)
    Application.DisplayAlerts = False
    For Each sh In Sheets
        If sh.Name <> "工资支付书总计" Then sh.Delete
    Next
    Application.DisplayAlerts = True
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider = Microsoft.Ace.Oledb.12.0;Extended Properties =Excel 12.0;Data Source =" & ThisWorkbook.FullName
    SQL = "select distinct 部门 from [工资支付书总计$A2:AR183]"
    Set rs = cnn.Execute(SQL)
    Do Until rs.EOF
        SQL = "select * from [工资支付书总计$A2:AR183] where 部门='" & rs.Fields(0).Value & "'"
        With Sheets.Add(After:=Sheets(Sheets.Count))
            .Name = rs.Fields(0).Value
            rng.Copy .[A1]
            [A2:AR2].Copy .[A2:AR2]
            .[a3].CopyFromRecordset cnn.Execute(SQL)

        End With
        rs.MoveNext
    Loop
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
End Sub

曹银强

附件请楼主参考

asd492751586

朱荣兴 发表于 2017-7-3 06:53
下载我的   灵活拆分工具    就能用

你好，灵活拆分工具在哪里

浮生若梦yy

朱荣兴 发表于 2017-7-3 08:57
19行一下的表格为何跟上面的不同，不明白

都是一样的呀，你指的是什么不一样？