如何将筛选的内容不删除，而是剪切到同一表的sheet2工作簿？谢谢！

dadushi002

Sub 筛选()
    Dim i&, R As Range, c As Range
    Set R = ActiveSheet.Cells.Find("部门代码")
    If Not R Is Nothing Then
        For i = Cells(65536, R.Column).End(3).Row To R.Row + 1 Step -1
            If Not Cells(i, R.Column).Value Like "*-0108" Then Rows(i).Delete
        Next
           End If
End Sub
注：sheet2中保留标题行与sheet1一样.
sheet1中删除空白行，谢谢！

[ 本帖最后由 dadushi002 于 2011-5-30 21:55 编辑 ]

dadushi002

如何将sheet1的“部门代码”字段列中包含“0108”字符的行，剪切到同一表的sheet2工作簿中？谢谢！
Sub 筛选()
    Dim i&, R As Range, c As Range
    Set R = ActiveSheet.Cells.Find("部门代码")
    If Not R Is Nothing Then
        For i = Cells(65536, R.Column).End(3).Row To R.Row + 1 Step -1
            If Not Cells(i, R.Column).Value Like "*-0108" Then Rows(i).Delete
        Next
           End If
End Sub
注：sheet2中保留标题行与sheet1一样.
sheet1中删除空白行，谢谢！

[ 本帖最后由 dadushi002 于 2011-5-31 22:00 编辑 ]

doitbest

请上附件,没办法调试啊

dadushi002

已上传，请帮忙解决，谢谢！