макросом отсортировать данные по столбцу

[mariyavaryanitsa]

Добрый день.

Есть столбец J (значение) с ячейками ВСП, партнер , продажа на предприятии и пустыми. Необходимо пробежаться по столбцу J, если встречается значение ВСП, партнер, или пустая то полностью всю строку оставить в этой книге, а если встретилась продажа на предприятии, то эти строки переносятся на другой лист (полностью вся строка). Пример во вложении .

Буду очень благодарна всем откликнувшимся.

[mariyavaryanitsa]

т.е копировать строки в эту же книгу, в лист 2

[Казанский]

Так "перенести", т.е. скопировать туда и удалить здесь, или только скопировать?

Sub Макрос1()
With [A1]
    .AutoFilter
    .AutoFilter Field:=10, Criteria1:="ПРОДАЖА*"
    .CurrentRegion.Copy Sheets("Лист2").[A1]
    'удалите след. строку, если не надо удалять строки на этом листе
    ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .AutoFilter
End With
End Sub

[mariyavaryanitsa]

да перенести туда и удалить здесь, Вы меня правильно поняли

[mariyavaryanitsa]

Спасибо, Вам большое, все работает !!!!!!