Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Цитата subuday77:
а потом сносит пустые строки. »
То есть, вот этот код у Вас:
Цитата subuday77:
Код: Выделить весь код
    ActiveSheet.Range("$A$1:$B$2171").AutoFilter Field:=1, Criteria1:="="
    Rows("3:2171").Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.Range("$A$1:$B$1086").AutoFilter Field:=1
    Range("D1").Select
»
предназначен для удаления пустых строк?

Отправлено: 09:13, 29-08-2018 | #7