Autofilter, затем скопировать и вставить диапазон

Я написал код ниже. Намерение состоит в том, чтобы автоподбор столбца K с критериями, скопировать данные и вставить его в нижней части листа на той же странице, чуть ниже последней строки.

Я не получаю никаких ошибок, но код не работает должным образом. Он работает до автофильтра и копирования, но не вставляет данные в последнюю строку. Могу ли я получить некоторую помощь.

Sub Depreciation_to_Zero() With Sheets("Restaurant") .AutoFilterMode = False With .Range("k1", .Range("k" & .Rows.Count).End(xlUp)) .AutoFilter Field:=1, Criteria1:="*HotDog*" On Error Resume Next .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Copy .Cells(.Rows.Count, "A").End(xlUp).Row.Select.PasteSpecial xlPasteValues On Error GoTo 0 End With .AutoFilterMode = False End With MsgBox ("Complete") End Sub 

Попробуйте эту версию


 Option Explicit Public Sub DepreciationToZero() Const FIND_VAL = "*HotDog*" Dim ws As Worksheet, lr As Long, result As String Set ws = Worksheets("Restaurant") Application.ScreenUpdating = False ws.AutoFilterMode = False lr = ws.Cells(ws.Rows.Count, "K").End(xlUp).Row result = FIND_VAL & " not found" With ws.UsedRange ws.Range("K1:K" & lr).AutoFilter Field:=1, Criteria1:=FIND_VAL If ws.Range("K1:K" & lr).SpecialCells(xlCellTypeVisible).CountLarge > 1 Then .Offset(1).Resize(lr - 1).SpecialCells(xlCellTypeVisible).Copy .Offset(lr).Cells(1).PasteSpecial xlPasteValues .Offset(lr).Cells(1).Select Application.CutCopyMode = False result = "All " & FIND_VAL & " rows copied" End If End With ws.AutoFilterMode = False Application.ScreenUpdating = True MsgBox result End Sub 
  • Вставка диаграмм из Excel с большими файлами
  • Скопируйте, вставьте Excel в PPT. Ничего в буфере обмена
  • VBA Excel Копировать / Вставить Конкретный диапазон от нескольких листов
  • Копирование ячеек в excel с помощью vba
  • Макрос Excel - вставка выделения в Word
  • Диапазон копирования из одной листовой вставки Часть диапазона в одном листе на основе значения ячейки на другом листе
  • Исправить вложенные табличные данные в Excel (скопировано с веб-сайта)
  • Копировать диапазон в excel, найти определенный текст в документе MSWord, заменить на изображение в буфере обмена
  • excel vba копировать значение из столбца и вставлять значение в ячейку
  • Копировать выходные данные запроса из SQL SERVER 2012 и вставить в Excel
  • Копировать строку, транспонировать и вставлять
  • Давайте будем гением компьютера.