Как скопировать данные с одного листа на другой на основании данных в столбце (то есть где попадаются яблоки). Есть формула, но не работает хоть ты тресни:
=filter(Лист1!A:C;Лист1!A:A="Яблоки")
Причем я так понял формулу надо вставлять в ячейку A2 второго листа. или нет. Всё время ругается на Имя. Имя ему не нравится.
Так же нашел макро, выложил какой то индус и тоже ни не работает:
Sub Copy_Criteria () Dim i, LastRow LastRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row Sheets("Sheet2").Range("A2:I500").ClearContents For i = 2 To LastRow If Sheets("Sheet1").Cells(i, "E").Value = "" Then Sheets("Sheet1").Cells(i, "E").EntireRow.Copy Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1) End If Next i End Sub
Глубоко извиняюсь, исправил VBA и скрипт заработал:
Sub Copy_Criteria () Dim i, LastRow LastRow = Sheets("Лист1").Range("A" & Rows.Count).End(xlUp).Row Sheets("Лист2").Range("A2:I500").ClearContents For i = 2 To LastRow If Sheets("Лист1").Cells(i, "A").Value = "Яблоки" Then Sheets("Лист1").Cells(i, "A").EntireRow.Copy Destination:=Sheets("Лист2").Range("A" & Rows.Count).End(xlUp).Offset(1) End If Next i End Sub