Здравствуйте!
Подскажите как убрать ошибку определения последней строчки таблицы если нужно: отфильтровать таблицу, скопировать отфильтрованные данные и вставить их в конец другой таблицы этого же листа.
Подскажите как убрать ошибку определения последней строчки таблицы если нужно: отфильтровать таблицу, скопировать отфильтрованные данные и вставить их в конец другой таблицы этого же листа.
Код |
---|
Sub Copy_to_2() Лист1.Range("$J3:$K3").AutoFilter Field:=1, Criteria1:="<>" Лист1.Range("J3:K" & Cells(Rows.Count, 1).End(xlUp).Row).Copy Cells(Rows.Count, 7).End(xlUp).Offset(2) Лист1.Range("$J3:$K3").AutoFilter Field:=1 End Sub |
написал такой код, но при установке фильтра в одной таблице, сбивается последняя ячейка другой таблицы, и данные вставляются не в конец таблицы,
Заранее спасибо.