在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