将Sheet1表 ，A列单元格中为Code1的所有行筛选出来，并拷贝到当前工作簿Shee2工作表
复制代码到Sheet2
Sub 筛选复制()
Dim I%
For I = 2 To Sheet1.Range("A65536").End(xlUp).Row
If Sheet1.Cells(I, "a") = "Code1" Then
N = N + 1
Sheet1.Rows(I).Copy Cells(N + 1, "a")
End If
Next
End Sub
录制宏，然后看录制的代码就OK了。这个方法非常适合新手。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024