Страницы: 1
RSS
Копирование листов в разные книги из массива ячеек
 
Всем привет
Столкнулся с проблемой, необходимо на листе 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

На втором круге выводит ошибку на шаге копирования, подскажите что сделано не так, совсем новичок  
 
задачу нужно описать, файл приложить, а не публиковать ничего не значащий без данных код
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Спасибо за комментарий, к результату пришел самостоятельно
Страницы: 1
Наверх