把一个工作表按每100行拆分成多个Excel文件

hjq018

有一个EXCEL文件，想把里面的内容按每100行拆分成几个Excel文件。

我是来讨说法的

自己搜索论坛

lsc900707

见证成长历程---我的答疑解难代码汇总
http://club.excelhome.net/thread-1322460-1-1.html
(出处: ExcelHome技术论坛)
参考56楼代码

YZC51

lsc900707 发表于 2018-12-19 12:38
见证成长历程---我的答疑解难代码汇总
http://club.excelhome.net/thread-1322460-1-1.html
(出处: Excel ...

学习老师的代码
Sub lsc()
    Dim wbk As Workbook
    Application.ScreenUpdating = False
    With Sheet1
        For i = 1 To .Cells(.Rows.Count, 1).End(3).Row Step 100
            k = k + 1
            Set wbk = Workbooks.Add
            .Rows(i).Resize(100).Copy wbk.Sheets(1).[a1]
            wbk.Close True, ThisWorkbook.Path & "\" & k
        Next
    End With
    Set wbk = Nothing
    Application.ScreenUpdating = True
End Sub

永在战场

这个问题也困扰我很长时间了，研究了很多网上资料最后还是失败了，终于找到答案了。。。。。。

yjjhc

YZC51 发表于 2018-12-19 13:20
学习老师的代码
Sub lsc()
    Dim wbk As Workbook

再问一下，这个固定行切割，可以锁定第一行在每张表里都有吗？

lwwy1981

yjjhc 发表于 2020-6-23 14:45
再问一下，这个固定行切割，可以锁定第一行在每张表里都有吗？

.Rows(1).Copy wbk.Sheets(1).[a1] '表头
.Rows(i).Resize(100).Copy wbk.Sheets(1).[b1]  '数据

YZC51

lwwy1981 发表于 2020-6-23 14:50
.Rows(1).Copy wbk.Sheets(1).[a1] '表头
.Rows(i).Resize(100).Copy wbk.Sheets(1).  '数据

谢谢老师完善代码！

yjjhc

lwwy1981 发表于 2020-6-23 14:50
.Rows(1).Copy wbk.Sheets(1).[a1] '表头
.Rows(i).Resize(100).Copy wbk.Sheets(1).  '数据

感谢老师指点

yjjhc

lwwy1981 发表于 2020-6-23 14:50
.Rows(1).Copy wbk.Sheets(1).[a1] '表头
.Rows(i).Resize(100).Copy wbk.Sheets(1).  '数据

Sub lsc()
    Dim wbk As Workbook
    Application.ScreenUpdating = False
    With Sheet1
        For i = 1 To .Cells(.Rows.Count, 1).End(3).Row Step 100
            k = k + 1
            Set wbk = Workbooks.Add
            .Rows(1).Copy wbk.Sheets(1).[a1] '表头
            .Rows(i).Resize(100).Copy wbk.Sheets(1).[a2]  '数据
            wbk.Close True, ThisWorkbook.Path & "\" & k
        Next
    End With
    Set wbk = Nothing
    Application.ScreenUpdating = True
End Sub
老师，这么写对吗？反正是实现了，但是不完美的是第一张表里表头会出现2次