Учет успеваемости журнал

[Учитель-новатор]

Я хочу усовершенствовать электронный журнал успеваемости школьников. За основу взят материал из Интернета (автор Савченко). Хочу добиться автоматического распределения оценок каждого ученика в отдельные книги Excel. Понимаю, что можно опять же использавать функцию ПОВТОР, но не могу получить желаемого результата. Помогите!
Идея заполнения - оценки вводятся с классного журнала на листе 2 в алфавитном порядке по каждому предмету, с помощью функции ПОВТОР на листе 1 производится перетасовка оценок: фамилия ученика - все оценки по всем предметам. И вот эту информацию по каждому ученику мне надо разбросать по отдельным файлам.

[IgorGO]

с ПОВТОРом Вам явно что-то показалось, ничем и никак он не поможет в данном вопросе.
а правильно было бы писать так:
Дата - ФИО - Класс - Предмет - Оценка
И потом на основе такой базы элементарно получить любые выборки, по ученику, по классу, по предмету, по четверти, за год и пр. в любых сочетаниях.

[Учитель-новатор]

Спасибо за ответ. Но, к сожалению, для меня это очень непонятно.
Подскажите лишь, как в отдельном документе повторить таблицу с оценками для одного ученика. Можна ли показать на конкретном примере?

[vikttur]

Зачем раскидывать в разные файлы? Данные лучше обрабатывать, если они будут находиться в одной книге, лучше - на одном листе. Ведь база не будет состоять из нескольких тысяч строк?

[IgorGO]

Вы продемонстрировали совершенно новаторский способ использования функции ПОВТОР, вряд-ли кому из старожил форума такое неожиданное решение пришло бы в голову.
вижу Виктор, как и я, в полном недоумении для чего это все затеяно, зачем разбивать данные на файлы. мало того, лично я уверен - это тупиковая ветвь в развитии электронных способов ведения учета успеваемости школьников. но... Вам виднее
к ранее предложенному добавил бы еще одну колонку ВесОценки
Дата - ФИО - Класс - Предмет - Оценка - Вес
чтобы можно было контрольной присвоить вес, например 5, что означает, что получить 12 за контрольную это все равно как получить 5 оценок по 12 (при выведнии среднего (оценки за четверть)). если бы это было поручено мне, именно в таком виде я вел бы учет оценок на втором листе.

и по существу. в Модуле1 есть процедура StudentsBreak - смело стартуйте ее. новые файлы будут без формул, только с данными. если Вам дорог ПОВТОР в каждой ячейке и его надо сохранить - закомментируйте две строчки в макросе:
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues

удачи!