Добрый день! при объеденении двух макросов выдает ошибу
Первый макрос (перенсит таблицу в новую книгу:
Второй делит лист на указанное колличество строк и схраняет
после объеденения пояаляется ошибка, подсвечивает строку:
Первый макрос (перенсит таблицу в новую книгу:
Код |
---|
Cells.Select Selection.Copy Workbooks.Add ActiveSheet.Paste Range("A1").Select |
Второй делит лист на указанное колличество строк и схраняет
Код |
---|
Dim iY1 As Long Dim iY2 As Long Dim i As Byte Dim sh1 As Worksheet Dim s As String Set sh1 = ActiveWorkbook.ActiveSheet i = 0 For iY1 = 1 To Cells(Rows.Count, 2).End(xlUp).Row Step cDelta i = i + 1 Workbooks.Add With sh1: .Range(.Cells(iY1, 1), .Cells(iY1 + cDelta - 1, Columns.Count)).Copy Cells(1): End With Rows(1).Insert Shift:=xlDown s = Replace(ThisWorkbook.FullName, ".xls", "-" & Right("0" & CStr(i), 2) & ".xls") ActiveWorkbook.SaveAs Filename:=s, FileFormat:= _ xlExcel8, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close Next |
Код |
---|
With sh1: .Range(.Cells(iY1, 1), .Cells(iY1 + cDelta - 1, Columns.Count)).Copy Cells(1): End With |