Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как разбить общие данные одного листа на несколько листов - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как разбить общие данные одного листа на несколько листов (Формулы/Formulas)
Как разбить общие данные одного листа на несколько листов
camutakue Дата: Понедельник, 10.09.2018, 13:31 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Коллеги, добрый день.
Дано: результаты тестирования по мероприятию (выгрузка из тестовой системы)
Результаты на одном листе, сверху вниз, подряд все участники тестирования.
Участники Разделены между собой зеленым цветом.(3 строка, 305 строка, 607 строка итд, участников может быть много. более 20 )
Нужно: разделить результаты каждого участника на отдельный лист.
В примере прилагаю как было и как нужно.
Помогите при возможности!
Вообще, это реально?
как автоматизировать процесс не представляю((
К сообщению приложен файл: Desktop.zip (98.5 Kb)
 
Ответить
СообщениеКоллеги, добрый день.
Дано: результаты тестирования по мероприятию (выгрузка из тестовой системы)
Результаты на одном листе, сверху вниз, подряд все участники тестирования.
Участники Разделены между собой зеленым цветом.(3 строка, 305 строка, 607 строка итд, участников может быть много. более 20 )
Нужно: разделить результаты каждого участника на отдельный лист.
В примере прилагаю как было и как нужно.
Помогите при возможности!
Вообще, это реально?
как автоматизировать процесс не представляю((

Автор - camutakue
Дата добавления - 10.09.2018 в 13:31
StoTisteg Дата: Понедельник, 10.09.2018, 14:29 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
[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

End Sub
[/vba]
К сообщению приложен файл: 2557216.xlsm (74.6 Kb)


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
Сообщение[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

End Sub
[/vba]

Автор - StoTisteg
Дата добавления - 10.09.2018 в 14:29
camutakue Дата: Понедельник, 10.09.2018, 15:41 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
StoTisteg, спасибо!!!
это макрос?
немного тормоз...)
у меня не поддерживает что-то.. а что именно надо включить не пойму(
К сообщению приложен файл: 2897714.jpg (64.3 Kb)
 
Ответить
СообщениеStoTisteg, спасибо!!!
это макрос?
немного тормоз...)
у меня не поддерживает что-то.. а что именно надо включить не пойму(

Автор - camutakue
Дата добавления - 10.09.2018 в 15:41
StoTisteg Дата: Понедельник, 10.09.2018, 15:52 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
А иначе никак... Формулы новых листов создавать не умеют...
у меня не поддерживает что-то..
Ну я тем более не знаю, что у Вас не поддерживает...
что именно надо включить не пойму
Макросы разрешить в настройках безопасности?


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеА иначе никак... Формулы новых листов создавать не умеют...
у меня не поддерживает что-то..
Ну я тем более не знаю, что у Вас не поддерживает...
что именно надо включить не пойму
Макросы разрешить в настройках безопасности?

Автор - StoTisteg
Дата добавления - 10.09.2018 в 15:52
camutakue Дата: Вторник, 11.09.2018, 05:33 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
StoTisteg, !!! Спасибо Вам огромное! я разобралась!
Все работает! 21 файл и 1872 человека сделала как нужно, а всего только начало рабочего дня!!! а так бы я неделю с этим сидела!!!
спасибо вам огромное!!! hands hands hands
 
Ответить
СообщениеStoTisteg, !!! Спасибо Вам огромное! я разобралась!
Все работает! 21 файл и 1872 человека сделала как нужно, а всего только начало рабочего дня!!! а так бы я неделю с этим сидела!!!
спасибо вам огромное!!! hands hands hands

Автор - camutakue
Дата добавления - 11.09.2018 в 05:33
kot2012 Дата: Пятница, 27.11.2020, 11:14 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 27
Репутация: 0 ±
Замечаний: 20% ±

Excel 2019
Добрый день!
Прошу помощи у гуру макросов ) Помогите пожалуйста разобраться что не так я делаю, вроде всё по аналогии сделал, подставил свои параметры, а debug упорно выдает ошибку ((( В приложении пример (спецификация) необходимо чтобы их разбивало на листы и присваивались имена этим листам в соответствии с данными, которые находятся во второй строке к примеру: "к Договору № 1П-14 от 09.01.2014". За любую помощь буду благодарен! И если вдруг еще и подскажете как сохранять все полученные листы по отдельным файлам будет просто сказка, можно даже ссылкой )))
К сообщению приложен файл: 6829597.rar (43.9 Kb)
 
Ответить
СообщениеДобрый день!
Прошу помощи у гуру макросов ) Помогите пожалуйста разобраться что не так я делаю, вроде всё по аналогии сделал, подставил свои параметры, а debug упорно выдает ошибку ((( В приложении пример (спецификация) необходимо чтобы их разбивало на листы и присваивались имена этим листам в соответствии с данными, которые находятся во второй строке к примеру: "к Договору № 1П-14 от 09.01.2014". За любую помощь буду благодарен! И если вдруг еще и подскажете как сохранять все полученные листы по отдельным файлам будет просто сказка, можно даже ссылкой )))

Автор - kot2012
Дата добавления - 27.11.2020 в 11:14
китин Дата: Пятница, 27.11.2020, 11:30 | Сообщение № 7
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
kot2012, - Прочитайте Правила форума
- Создайте свою тему согласно п.5q Правил форума
Эта тема закрыта


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеkot2012, - Прочитайте Правила форума
- Создайте свою тему согласно п.5q Правил форума
Эта тема закрыта

Автор - китин
Дата добавления - 27.11.2020 в 11:30
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как разбить общие данные одного листа на несколько листов (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!