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

Автор korsarqa, 23.06.2012, 14:49

« назад - далее »

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

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771