Разделение таблицы на файлы

Пользователь

Сообщений: 2 Регистрация: 29.04.2015

29.04.2015 11:38:44

Друзья, привет!
Обращаюсь к Вам за помощью.

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

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

Спасибо заранее за помощь!!!

Прикрепленные файлы

для разбивки.rar (92.33 КБ)

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#2 29.04.2015 12:39:41 Это не помощь, это "сделайте за меня все". Мож Вам сюда? http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=list&FID=7 Я сам - дурнее всякого примера! ...

vercool

Пользователь

Сообщений: 2 Регистрация: 29.04.2015

29.04.2015 13:37:32

у меня есть небольшой скрипт, но его надо докрутить

Код

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.04.2015 09:34:12 (по просьбе модератора)