Всем привет
Столкнулся с проблемой, необходимо на листе Excel задать параметры копируемых листов, чтобы макрос раскидал и сохранил данные книги в разных файлах, часть кода нашел на этом сайте часть поправил но никак не дойду до конца
Sub q()
Dim i As Integer
Dim b As Integer
Dim iLastRow As Integer
Dim ilastCol As Integer
Dim Listi() As String
ilastCol = Workbooks("Книга2.xlsx").Sheets("Лист1").Cells(14, Columns.Count).End(xlToLeft).Column 'определяем количество столбцов
For b = 9 To ilastCol
iLastRow = Workbooks("Книга2.xlsx").Sheets("Лист1").Cells(Rows.Count, b).End(xlUp).Row ' определяем количество строк
For i = 15 To iLastRow
ReDim Preserve Listi(15 To i) ' определяем размерность массива
Listi(i) = Workbooks("Книга2.xlsx").Sheets("Лист1").Cells(i, b)
Next i
Sheets(Listi).Copy 'копируем заданные листы в строках в отдельную книгу
Erase Listi
Next b
End Sub
На втором круге выводит ошибку на шаге копирования, подскажите что сделано не так, совсем новичок
Столкнулся с проблемой, необходимо на листе Excel задать параметры копируемых листов, чтобы макрос раскидал и сохранил данные книги в разных файлах, часть кода нашел на этом сайте часть поправил но никак не дойду до конца
Sub q()
Dim i As Integer
Dim b As Integer
Dim iLastRow As Integer
Dim ilastCol As Integer
Dim Listi() As String
ilastCol = Workbooks("Книга2.xlsx").Sheets("Лист1").Cells(14, Columns.Count).End(xlToLeft).Column 'определяем количество столбцов
For b = 9 To ilastCol
iLastRow = Workbooks("Книга2.xlsx").Sheets("Лист1").Cells(Rows.Count, b).End(xlUp).Row ' определяем количество строк
For i = 15 To iLastRow
ReDim Preserve Listi(15 To i) ' определяем размерность массива
Listi(i) = Workbooks("Книга2.xlsx").Sheets("Лист1").Cells(i, b)
Next i
Sheets(Listi).Copy 'копируем заданные листы в строках в отдельную книгу
Erase Listi
Next b
End Sub
На втором круге выводит ошибку на шаге копирования, подскажите что сделано не так, совсем новичок