Перенос данных по условию в Excel: инструкция

Шаг 1. Подготовка формулы

Перейдите на новый лист, выделите левую верхнюю ячейку будущей таблицы и введите формулу:

=ФИЛЬТР(Лист1!A2:D100; Лист1!C2:C100="Оплачено"; "Нет совпадений")

Где Лист1!A2:D100 — исходный диапазон, а Лист1!C2:C100="Оплачено" — ваше условие переноса.

Шаг 2. Проверка регистра данных

Если условие не срабатывает из-за разного регистра букв в исходной таблице, рекомендуем предварительно обработать текст. Подробнее о том, как это сделать, читайте в статье: Как сделать все буквы заглавными в Excel.

Шаг 1. Открытие редактора VBA

Нажмите комбинацию клавиш Alt + F11, выберите в меню Insert -> Module и вставьте следующий код:

Sub CopyRowsByCondition()
    Dim srcSheet As Worksheet, destSheet As Worksheet
    Dim i As Long, nextRow As Long
    Set srcSheet = Sheets("Лист1")
    Set destSheet = Sheets("Лист2")
    nextRow = destSheet.Cells(destSheet.Rows.Count, "A").End(xlUp).Row + 1
    For i = 2 To srcSheet.Cells(srcSheet.Rows.Count, "A").End(xlUp).Row
        If srcSheet.Cells(i, 3).Value = "Оплачено" Then
            srcSheet.Rows(i).Copy destSheet.Rows(nextRow)
            nextRow = nextRow + 1
        End If
    Next i
End Sub

Запустите макрос кнопкой F5.