按行数从单个工作表创建多个工作簿的宏答案

【问题标题】：macro to create multiple workbooks from single worksheet by number of rows按行数从单个工作表创建多个工作簿的宏
【发布时间】：2015-01-07 15:21:45
【问题描述】：

到目前为止，我已经创建了一个宏，用于将文件夹中多个工作簿中的 1 行数据提取到具有稳定标题部分（3 行）的单个 .csv 工作表中。

下一步是上传数据，但我们的系统只接受最多 40 行的 .csv 文件。

我需要一个宏来创建多个工作簿，每个工作簿有 40 行数据（包括标题行 (1-3)。有 157 列，每一行都是唯一的。

我仍然是 VBA 的初学者，因此非常感谢任何帮助！

如果您需要我提供更多信息以提供帮助，请告诉我。

谢谢

【问题讨论】：

标签： vba excel

【解决方案1】：

这应该让你开始：

Sub splitSheet()

    Const maxLines As Integer = 40

    Dim wsTarget As Worksheet
    Dim wbNew As Workbook
    Dim wsNew As Worksheet
    Dim rngTarget As Range
    Dim rngTemp As Range

    Set wsTarget = ThisWorkbook.Sheets(1)
    Set rngTarget = wsTarget.Range("A1", wsTarget.Range("A" & wsTarget.Cells.Rows.Count).End(xlUp)).EntireRow

    Set rngTemp = wsTarget.Range("1:" & maxLines)

    Do
        Set wbNew = Workbooks.Add
        Set wsNew = wbNew.Worksheets.Add

        rngTemp.Copy
        wsNew.Paste

        Set rngTemp = rngTemp.Offset(maxLines, 0)

    Loop Until Intersect(rngTemp, rngTarget) Is Nothing

End Sub

【讨论】：