求助~在excel怎么样用宏实现内容的自动筛选并复制!!

宏代码如下：Sub 筛选()For i = 1 To Sheets(1).[j65536].End(3).RowIf Sheets(1).Cells(i, 10) Like *花都* Then '注凡Sheet1J列含有“花都”二字的记录均被视为符合要求。a = Sheets(2).[j65536].End(3).Row + 1Sheets(1).Range(i & : & i).Copy Sheets(2).Range(a & : & a)End IfNextEnd Sub