Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Разделение таблицы на файлы
 
Друзья, привет!
Обращаюсь к Вам за помощью.

Не знаю возможно ли сделать один макрос по двум задачам, потому описываю отдельно:
1 макрос, необходимо разбить файл по значениям последнего столбца "метка" на отдельные файлы. И что бы файлы получали соответствующее название из столбца общая метка.
2 макрос, если полученные файлы имеют более 999 строк их необходимо разбить на несколько - не более 999 в каждом.

Файл для примера прикрепил.
Во всех полученных файлах необходимо, что бы фиксировались первые 10 строк (заголовки) без изменений, то есть копировались в каждый файл. И другие листы (контактная информация, регионы) из исходника так же копировались в новые файлы без изменений.

Спасибо заранее за помощь!!! :)
 
Это не помощь, это "сделайте за меня все". Мож Вам сюда?
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=list&FID=7
Я сам - дурнее всякого примера! ...
 
у меня есть небольшой скрипт, но его надо докрутить
Код
Sub DivFile() Dim i As Long, s As String, ws As Worksheet 
Application.ScreenUpdating = False: Set ws = ActiveSheet 
For i = 1 To ws.UsedRange.Row + ws.UsedRange.Rows.Count - 1 Step 500 
Workbooks.Add xlWBATWorksheet: ws.Rows(i & ":" & i + 499).Copy [A1] 
s = Replace(ThisWorkbook.FullName, ".xls", "-" & (Fix(i / 500) + 1) & ".xls" ) 
ActiveWorkbook.SaveAs s: ActiveWorkbook.Close 
Next 
End Sub
Изменено: vercool - 30 Апр 2015 09:34:12 (по просьбе модератора)
Страницы: 1
Читают тему (гостей: 1)