Автофильтр: копировать и вставлять. Как сместить при вставке скопированных данных? - PullRequest
0 голосов
/ 07 января 2019

Мне нужно сместить данные, которые я копирую, чтобы новые данные не стирали старые данные.

Я пробовал разные методы со смещением. Но я явно что-то делаю не так

Dim lastrow As Long: lastrow = Cells(Rows.Count, "A").End(xlUp).Row

Dim lastrow2 As Long: lastrow = Cells(Rows.Count, "h").End(xlUp).Row

Application.ScreenUpdating = False

With Sheets("Test")
    .AutoFilterMode = False
    .Range("A1:C" & lastrow).AutoFilter field:=3, Criteria1:="=TEST Sheet", Operator:=xlFilterValues
    .Range("A1:C" & lastrow).AutoFilter field:=2, Criteria1:="=New"
    .Range("A2:A" & lastrow).SpecialCells(xlCellTypeVisible).Copy .Range("H26").Offset(lastrow2, 0)
    .AutoFilterMode = False
End With

Application.ScreenUpdating = True

Таким образом, в основном все скопированные данные поступают в строку H, но список должен продолжать увеличиваться.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...