按日期列拆分工作表

欧阳11

各位大神，    请将附件按日期列拆分工作表，将总表拆分为  1月份、2月份、3月份、4月份、5月份、6月份、7月份、8月份、9月份、10月份、11月份、12月份等，并将内容一层不变的移到分表中；

liulang0808

楼主的分表是什么格式？跟总表一样吗？

欧阳11

liulang0808 发表于 2015-9-24 10:54
楼主的分表是什么格式？跟总表一样吗？

是的，格式都是一样的

liulang0808

Sub aa()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set d = CreateObject("scripting.dictionary")
    Set sh = Sheets("总表")
    arr = Application.Intersect(sh.UsedRange, sh.Columns(6))
    For j = 2 To UBound(arr)
        If Len(arr(j, 1)) > 0 Then
            m = Month(arr(j, 1))
            If d.exists(m) Then
                Set d(m) = Union(d(m), sh.Cells(j, 1).Resize(1, 25))
            Else
                Set d(m) = Union(sh.[a1].Resize(1, 25), sh.Cells(j, 1).Resize(1, 25))
            End If
        End If
    Next j
    For j = Sheets.Count To 3 Step -1
        Sheets(j).Delete
    Next j
    For j = 12 To 1 Step -1
        If d.exists(j) Then
            Sheets.Add after:=Sheets(2)
            Sheets(3).Name = j & "月"
            d(j).Copy Sheets(3).[a1]
        End If
    Next j
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

liulang0808

具体见附件内容，，，，，

欧阳11

liulang0808 发表于 2015-9-24 11:21
具体见附件内容，，，，，

老师，如何给你送花呢？另，是否可以解释一下是啥意思呢？每句的代码

liulang0808

欧阳11 发表于 2015-9-24 14:25
老师，如何给你送花呢？另，是否可以解释一下是啥意思呢？每句的代码

数组字典都有，建议楼主去简单了解下吧

LMY123

字典拆分工作表