Коллеги, добрый день. Дано: результаты тестирования по мероприятию (выгрузка из тестовой системы) Результаты на одном листе, сверху вниз, подряд все участники тестирования. Участники Разделены между собой зеленым цветом.(3 строка, 305 строка, 607 строка итд, участников может быть много. более 20 ) Нужно: разделить результаты каждого участника на отдельный лист. В примере прилагаю как было и как нужно. Помогите при возможности! Вообще, это реально? как автоматизировать процесс не представляю((
Коллеги, добрый день. Дано: результаты тестирования по мероприятию (выгрузка из тестовой системы) Результаты на одном листе, сверху вниз, подряд все участники тестирования. Участники Разделены между собой зеленым цветом.(3 строка, 305 строка, 607 строка итд, участников может быть много. более 20 ) Нужно: разделить результаты каждого участника на отдельный лист. В примере прилагаю как было и как нужно. Помогите при возможности! Вообще, это реально? как автоматизировать процесс не представляю((camutakue
Set ws = ActiveSheet With ws En = .Cells(Rows.Count, 1).End(xlUp).Row Do Until Bg = 3 Bg = En Do Until .Cells(Bg, 1).Value = "Пользователь" Bg = Bg - 1 Loop Sheets.Add after:=Worksheets(Sheets.Count) ActiveSheet.Name = Left(.Cells(Bg, 2).Value, 31) .Range(.Rows(Bg), .Rows(En)).Copy Destination:=Rows(1) En = Bg - 1 Loop End With
End Sub
[/vba]
[vba]
Код
Sub Divide()
Dim Bg As Long, En As Long Dim ws As Worksheet
Set ws = ActiveSheet With ws En = .Cells(Rows.Count, 1).End(xlUp).Row Do Until Bg = 3 Bg = En Do Until .Cells(Bg, 1).Value = "Пользователь" Bg = Bg - 1 Loop Sheets.Add after:=Worksheets(Sheets.Count) ActiveSheet.Name = Left(.Cells(Bg, 2).Value, 31) .Range(.Rows(Bg), .Rows(En)).Copy Destination:=Rows(1) En = Bg - 1 Loop End With
StoTisteg, !!! Спасибо Вам огромное! я разобралась! Все работает! 21 файл и 1872 человека сделала как нужно, а всего только начало рабочего дня!!! а так бы я неделю с этим сидела!!! спасибо вам огромное!!!
StoTisteg, !!! Спасибо Вам огромное! я разобралась! Все работает! 21 файл и 1872 человека сделала как нужно, а всего только начало рабочего дня!!! а так бы я неделю с этим сидела!!! спасибо вам огромное!!! camutakue
Добрый день! Прошу помощи у гуру макросов ) Помогите пожалуйста разобраться что не так я делаю, вроде всё по аналогии сделал, подставил свои параметры, а debug упорно выдает ошибку ((( В приложении пример (спецификация) необходимо чтобы их разбивало на листы и присваивались имена этим листам в соответствии с данными, которые находятся во второй строке к примеру: "к Договору № 1П-14 от 09.01.2014". За любую помощь буду благодарен! И если вдруг еще и подскажете как сохранять все полученные листы по отдельным файлам будет просто сказка, можно даже ссылкой )))
Добрый день! Прошу помощи у гуру макросов ) Помогите пожалуйста разобраться что не так я делаю, вроде всё по аналогии сделал, подставил свои параметры, а debug упорно выдает ошибку ((( В приложении пример (спецификация) необходимо чтобы их разбивало на листы и присваивались имена этим листам в соответствии с данными, которые находятся во второй строке к примеру: "к Договору № 1П-14 от 09.01.2014". За любую помощь буду благодарен! И если вдруг еще и подскажете как сохранять все полученные листы по отдельным файлам будет просто сказка, можно даже ссылкой )))kot2012