Копирование строк по условию в разные листы

[korsarqa]

Здравствуйте!

В Excel создаю график приема абитуриентов!
Заполнение должно идти на первом листе - "Общая". А далее в зависимости от выбранного приоритета копирование всей строки в соответствующий лист.
Вкладываю файл Excel вместе с сообщением.
Помогите пожалуйста!!!

[kuklp]

Привет. С колонками, надеюсь сами разберетесь:-)

Код Выделить Развернуть

Public Sub www()
    Dim i&: On Error Resume Next
    For i = [a1].CurrentRegion.Rows.Count To 2 Step -1
        Cells(i, 3).EntireRow.Copy Sheets(Cells(i, 3).Value).Cells(Rows.Count, 1).End(xlUp).Offset(1)
    Next
End Sub