Категории заданий

Написать макрос в ecxel

Алексей Шульгин Исполнитель: Алексей Шульгин 
Оценка: +1
Отзыв: Редкий человек разбирающийся в макросах. Делает быстро и с удовольствием. Браво!)
Стоимость: 300
Категория: Другое
Время выполнения: 4 часа
Поиск кандидата: 0 сек


Подробное описание:

Необходима помощь в написании макроса. Наподобие этого, только посложнее: 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 Незнаю возможно ли сделать один макрос по двум задачам, потому описываю отдельно: 1 макрос, необходимо разбить файл по значениям последнего столбца "общая метка" на отдельные файлы. И что бы файлы получали соответсвующее название из столбца общая метка. 2 макрос, если полученные файлы имеют более 999 строк их необходимо разбить на несколько - не более 999 в каждом. файл для примера прикрепил. Во всех полученных файлах необходимо, что бы фиксировались первые 10 строк (заголовки) без изменений, то есть копировались в каждый файл. И другие листы (контактная информация, регионы) из исходника так же копировались в новые файлы без изменений.

Рассказать друзьям

Подпишитесь на полезные статьи

Примеры заданий и практические советы по аутсорсингу задач

   



На дайджест уже подписалось 555214 читателей!

Присоединяйтесь к нам в соцсетях!