excel通过宏按列查找

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

具体代码如下：

Sub Macro1()Dim str As StringDim j As Integerj = 1For 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 IfNext iEnd Sub