EXCEL中怎么查找一个符合条件的单元格并将这个单元格所在的行复制到另一个工作表

Sub test() '1、声明遍历 Dim i As Long '2、判断是否满足条件 If Cells(i, 1) = "A" Then n = n + 1 '3、如果满足，复制整行 Rows(i).Copy Sheets("目标表").Cells(n, 1) End If '4、过程结束 End Sub