Question

我的.all文件超过了excel强加的1048576行的限制。

我正在使用此代码：

git init

但是这段代码可以用于长文件，因为这个限制。我的想法是复制原始.all文件，然后将此副本拆分为限制为1048576行的文件，将每个拆分文件复制到单个工作表中，最后复制此副本。

我在vba中很新...有什么帮助来编写代码吗？

非常感谢。

Answer 1

您可以使用以下代码将文件拆分为单独的部分。

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无法满足您的需求，我建议您继续使用Access或SQL Server。

在excel中拆分文件以避免行限制

1 个答案: