如何拆分表格？

dfbbkk

如果我的一个EXCEL表格，共有1000行数据。我现在要把这1000行数据拆分成新的SHEET或表格。

比如：按每100行就生成一个新的SHEET或表格，该如何操作？

约定的童话

Sub 按照实际内容拆分并保留标题()
    Application.ScreenUpdating = False
    Set d = CreateObject("scripting.dictionary")
    arr = Sheets(1).UsedRange
    For j = 2 To UBound(arr)
        If d.exists(arr(j, 2)) Then
            Set d(arr(j, 2)) = Union(d(arr(j, 2)), Cells(j, 1))
        Else
            Set d(arr(j, 2)) = Union([a1], Cells(j, 1))
        End If
    Next j
    For j = 0 To d.Count - 1
        Sheets.Add after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = d.keys()(j)
        d.items()(j).EntireRow.Copy Sheets(Sheets.Count).[a1]
    Next j
    Application.ScreenUpdating = True
End Sub

abc123281

很容易实现  关键是要上传附件

约定的童话

abc123281 发表于 2018-9-8 09:07
很容易实现  关键是要上传附件

老师，引用了你的代码