Условно переместить строки в другой рабочий лист

Я надеюсь, кто-то может мне помочь. У меня есть электронная таблица с двумя листами, которая называется «Детали», а другая – «Согласованная». У меня есть более 1000 строк в деталях, и я хочу вырезать все строки, которые имеют 0 или -колонку E (я хочу вырезать всю строку) и вставить ее в лист Details. Если возможно, я хотел бы скопировать и вставить заголовки из «Согласованные в детали».

Я пробовал использовать этот код (слегка модифицированный), используемый в другом сообщении

Sub Test() For Each Cell In Sheets("Details").Range("E:E") If Cell.Value = "0" Then matchRow = Cell.Row Rows(matchRow & ":" & matchRow).Select Selection.Copy Sheets("Reconcile").Select ActiveSheet.Rows(matchRow).Select ActiveSheet.Paste Sheets("Details").Select End If Next End Sub 

Но есть две проблемы. Поскольку некоторые значения – (числа действительно), они перемещаются, но те, которые равны 0.00, не перемещаются, потому что они округлены (я думаю, именно поэтому они не перемещаются). Кроме того, экран странно меняется, и я сожалею, что не могу объяснить это больше, чем.

Любая помощь будет оценена

  Sub Test() Application.ScreenUpdating = False On Error Goto Finish For Each Cell In Sheets("Details").Range("E:E") If Cell.Value = 0 Or Cell.Value = "-" Then cell.EntireRow.copy Sheets("Reconcile").Rows(cell.Row) Next Finish: Application.ScreenUpdating = True End Sub 

Обратите внимание: не помещайте кавычки вокруг 0, это приведет к цифровому сравнению

Использование Autofilter:

 Public Sub Test() Application.ScreenUpdating = False With Worksheets("Details").UsedRange .Parent.AutoFilterMode = False .AutoFilter .AutoFilter Field:=5, Criteria1:="0" .Copy With Worksheets("Reconciled").Cells(1, 1) .PasteSpecial xlPasteColumnWidths .PasteSpecial xlPasteAll .Parent.Activate: .Select End With .Rows(1).Hidden = True .SpecialCells(xlCellTypeVisible).EntireRow.Delete .Rows(1).Hidden = False .AutoFilter .Parent.Activate .Cells(1, 1).Activate End With Application.ScreenUpdating = True End Sub 
  • ВставитьСпециальные только значения
  • Excel VBA Copy Вставить после поиска
  • CRTL + Tilde затем скопируйте пасту «взорванные» формулы в excel
  • Копировать и вставить в VBA с использованием относительных ссылок? (Код ошибки 1004)
  • Excel 2010 - ошибка при копировании в разные книги без смежных ячеек
  • Excel VBA копирует данные из одной книги в другую книгу
  • Копирование столбцов из рабочей книги, вставка второго листа второй книги, openPyXL
  • excel-VBA: копирование последнего столбца с динамическими путями и именами
  • Заказ Datagridview.SelectedCells
  • Как объединить / объединить много несохраненных документов Excel в один?
  • Диапазон копирования из одной листовой вставки Часть диапазона в одном листе на основе значения ячейки на другом листе
  • Interesting Posts

    Запускать макросы, если лист не существует

    сталкиваясь с проблемой создания стержня из данных, извлеченных из db

    Можно ли установить внешний ключ между двумя листами Excel?

    Как объединить прерывистый выбор (при использовании Ctrl) в диапазоне в VBA в Excel

    VBA – Countif Range соответствует хотя бы одному значению из массива

    Скребуние данных из таблицы HTML с несколькими страницами

    Экспортировать выбранные строки в Excel из таблицы

    QGIS разделил текстовый файл UTF-16 отсутствующих значений

    Как включить схему с xml

    Условное форматирование Excel 2013 с оператором AND

    Копирование из ячейки, в новый комментарий ниже и переход к повторению

    VBA Печать значения в текстовом поле

    Посмотрите, чтобы найти точное соответствие, основанное на данной дате

    Если функция с 8 условиями

    Принудительное форматирование Excel 2007 для отображения секунд во времени данных

    Давайте будем гением компьютера.