Question

我必须在宏中编写一个代码，将包含2,00,000行的Excel工作表分成10个不同的工作表，每个工作表包含20,000行。

我曾尝试创建10种不同的工作簿。这是相同的代码：

Sub AddNew()

Dim i As Integer

For i = 1 To 10
    Set NewBook = Workbooks.Add
        With NewBook
             .Title = "Employee Details[i]"
             .Subject = "Employees[i]"
             .SaveAs Filename = "Employee_Details[i].xls"
        End With 
Next i

End Sub

问题是只有一个正在创建的工作簿。任何建议/解决方案将受到高度赞赏：）

Answer 1

Okej，所以这不是你问题的完整答案。但它应该会让你更进一步。此代码创建工作簿，您可以根据自己的需要进行更改。

Sub testBook()

    Dim newBook As Workbook
    Dim i As Integer

    For i = 1 To 10
        Set newBook = Workbooks.Add
            With newBook
                .Title = "Employee Details " & i
                .Subject = "Employees " & i
                .SaveAs Filename:="Employee_Details" & i & ".xlsx"
            End With

        ''place code here to copy the content you want 
        ''into the new workbook before closing and createing

        newBook.Close

    Next i

End Sub

我建议您尝试使用此代码并进行修复，以便它适合您。例如，添加不同的保存路径等。你应该毫不费力地找到有关它的信息。

当您完成这项工作后，请阅读有关如何将特定范围复制到新工作簿的信息，并了解您的工作进度。如果您遇到问题，请稍后将其作为新问题发布。

将Excel工作表中的数据分成不同的工作表

1 个答案: