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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир 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
Группа: Авторы
Ранг: Ветеран
Сообщений: 976
Репутация: 82 ±
Замечаний: 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)


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
Сообщение[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
Группа: Авторы
Ранг: Ветеран
Сообщений: 976
Репутация: 82 ±
Замечаний: 0% ±

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


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
СообщениеА иначе никак... Формулы новых листов создавать не умеют...
у меня не поддерживает что-то..
Ну я тем более не знаю, что у Вас не поддерживает...
что именно надо включить не пойму
Макросы разрешить в настройках безопасности?

Автор - 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
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как разбить общие данные одного листа на несколько листов (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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