Question

我们在Excel 2013中有大量数据，我们希望将其拆分为多个包含1000条记录的Excel工作簿。

因此，对于一个工作簿中的总共5000条记录，我们希望运行一个宏，该宏将自动将工作簿拆分为另外5个工作簿，每个工作簿有1000条记录。原始工作簿保持包含原始的5000条数据记录。

有人可以帮忙吗？

非常感谢

Answer 1

我假设每条记录都在一行，最后一列是T，而且你的表没有标题。

Public Sub Split_wb()

Dim i as integer, arr as variant, wb as variant, ws_source as worksheet

set ws_source = activesheet

For i =1 to 5
    arr = ws_source.range("A" & i*1000-999 & ":T" & i*1000)

    set wb = workbooks.add
    wb.sheets(1).Range("A1").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
    set arr = Nothing
next

end sub

Excel 2013 - 用于自动将数据拆分为不同工作簿的宏

1 个答案: