Vba 一张工作表拆分多张工作表

 如图，这边需要按照工作内容拆分多个工作表，直接上代码：

Sub splitSht()
Dim sht As Worksheet
Dim d As Object
Dim j As Integer

    Set sht = ThisWorkbook.Worksheets("Sheet1")
    Set d = CreateObject("scripting.dictionary")
    With sht
        rrow = .Range("A65535").End(xlUp).Row
        For i = 2 To rrow
            strr = .Range("E" & i).Value
            If Not d.exists(strr) Then
                d.Add strr, .Range("A1").Resize(1, 7)
                Set d.Item(strr) = Union(d.Item(strr), .Range("A" & i).Resize(1, 7))
            Else
                Set d.Item(strr) = Union(d.Item(strr), .Range("A" & i).Resize(1, 7))
            End If
        Next
        k = d.keys
        i = d.items
        For j = 0 To d.Count - 1
            Thi