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

dadushi002 · 发表于 2011-5-30 21:53

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 · 发表于 2011-5-31 00:54

如何将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 · 发表于 2011-5-31 13:54

请上附件,没办法调试啊

dadushi002 · 发表于 2011-5-31 22:01

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

		自动登录	找回密码
密码			免费注册

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

如何将筛选的内容剪切到同一表的另一工作簿sheet2？谢谢！