表格拆分VBA

2020-06-04 13:58:28  阅读 181 次 评论 0 条
Sub 拆分()
    Application.ScreenUpdating = False
    With Sheet1
        For i = 2 To .Cells(.Rows.Count, 1).End(3).Row Step 5000
            k = k + 1
            Set wb = Workbooks.Add
             wb.Sheets(1).[a1].Resize(, 14) = .[a1].Resize(, 14).Value
            .Rows(i).Resize(5000, 14).Copy wb.Sheets(1).[a2]
            wb.SaveAs Filename:=ThisWorkbook.Path & "\" & k & ".xls"
            wb.Close True
        Next
    End With
    Application.ScreenUpdating = True
End Sub

以上拆分,第二行开始,5000行,14列,一个文件


以下拆分,只有A列,20行一个文件,首行开始拆分,测试成功

Sub 拆分()
    Application.ScreenUpdating = False
    With Sheet1
        For i = 1 To .Cells(.Rows.Count, 1).End(3).Row Step 20
            k = k + 1
            Set wb = Workbooks.Add
             wb.Sheets(1).[a1].Resize(, 1) = .[a1].Resize(, 1).Value
            .Rows(i).Resize(20, 1).Copy wb.Sheets(1).[a1]
            wb.SaveAs Filename:=ThisWorkbook.Path & "\" & k & ".xls"
            wb.Close True
        Next
    End With
    Application.ScreenUpdating = True
End Sub


本文地址:https://www.wpsds.com/wpsbg/179.html
版权声明:本文为原创文章,版权归 达叔 所有,欢迎分享本文,转载请保留出处!
WPS达师专注于免费分享WPS Office使用教程、PPT、word模板及办公常用软件等资源,欢迎大家收藏和分享本站。
WPS交流群:121023130

发表评论


表情

还没有留言,还不快点抢沙发?