Как использовать если для автофильтрации, а затем скопировать и вставить на другой лист - PullRequest
Новая
       25

Как использовать если для автофильтрации, а затем скопировать и вставить на другой лист

0 голосов
/ 05 марта 2020

Я хотел бы использовать оператор if для фильтрации «CWO» в листах («DATA»), а затем скопировать все данные и вставить их в листы («CRO»). Если нет CWO, не копируйте. Вот мой код, но он сохраняет ShowAllData в рабочих листах («Данные»), хотя в рабочих листах есть «CWO» («ДАННЫЕ») 

Sub Copy_CRO() dim ldatarow as long
dim lcworow as long

ldata= Worksheets("DATA").Cells(Worksheets("DATA").Rows.Count, "A").End(xlUp).Row

lcworow = Worksheets("CRO").Cells(Worksheets("CRO").Rows.Count, "A").End(xlUp).Row
lcworow = lcworow + 1
if Find = Worksheets("DATA").Range("A1:A" & ldatarow).AutoFilter (Field:=1, Criteria1:="=CWO") then

Worksheets("DATA").Range("B2:B" & ldatarow).Copy
Worksheets("CRO").Range("A2:A" & lcworow).PasteSpecial

Else: worksheets("DATA").ShowAllData
...