excel通过宏按列查找

在excel中通过指定列查找指定的单元格，并将符合条件的行复制到另一工作薄。

具体代码如下：

Sub Macro1()


Dim str As String
Dim j As Integer
j = 1

For i = 1 To 20
    
    Range("E" & i).Select
    
    If InStr(1, ActiveCell.FormulaR1C1, "aaa") <> 0 Then
        Rows(i & ":" & i).Select
        Selection.Copy
        Sheets("Sheet2").Select
        Rows(j & ":" & j).Select
        j = j + 1
        ActiveSheet.Paste
        Sheets("Sheet1").Select
    End If

Next i

End Sub