当前位置:首页 > WPS表格 > 正文内容

表格拆分VBA

达叔1个月前 (06-04)WPS表格51
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


版权声明:本文由WPS达师发布,如需转载请注明出处。