Переместить определенную строку на другой лист

Question

Как перенести полную строку (или строки) листа 1, если в этой строке столбец C имеет слово «разрешено», в первую пустую строку листа2?

Другие строки, которые не соответствуют условию, должны будут продолжаться в листе 1, но занимать пустые строки, если это так (не иметь пробелов между всеми строками).

Answer 1

Это будет делать именно так, как вы хотите:

Sub Gonzalo() 

    Const SEARCH_COLUMN = 3 
    Const KEYWORD = "solved" 

    Dim n& 
    Application.ScreenUpdating = 0 
    Application.Calculation = xlCalculationManual 
    On Error Resume Next 
    Do While Err = 0 
     n = Application.Match(KEYWORD, Sheet1.Columns(SEARCH_COLUMN), 0) 
     If Err = 0 Then 
      Sheet2.Rows(Sheet2.[index(a:a,1+max(iferror(match({"*";9E+99},a:a,{-1;1}),1)))].Row) = Sheet1.Rows(n).Value 
      Sheet1.Rows(n).Delete xlUp 
     End If 
    Loop 
    Application.ScreenUpdating = 1 
    Application.Calculation = xlCalculationAutomatic 

End Sub 

Примечание: использовать первые две строки для редактирования столбец поиска и ключевое слово для поиска.