excel 表格vba自动输出符合条件的单元格所在的整行到新的工作表中

sub xx() dim x as long x=sheets("newsheet").range("a65536").end(xlup).row()+1 for i 1 to sheet1.range("a65536").end(xlup).row() if 符合条件 then sheet1.rows(i),copy sheets("newsheet").rows(x).select selection.pa