首页 文章

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

提问于
浏览 次
0

我必须在宏中编写一个代码，将包含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

问题是只创建了一个工作簿 . 任何建议/解决方案将受到高度赞赏:)

excel-vba vba excel

1 回答

  • 0

    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

    我建议你尝试这个代码并修复它，以便它适合你 . 例如，添加不同的保存路径等 . 您应该毫无困难地找到有关它的信息 .

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

    回复于

相关问题