Question

excel表格用VBA按照条件进行筛选，

如图，比如我要筛查，订单状态名称为运输中，产品名称为裸素鱼竿的数据。请问如何用写宏。

Answer 1

Sub 筛选()
Columns("F:I") = ""
Dim I%
For I = 2 To Range("A65536").End(xlUp).Row
If Cells(2, 2) = "运输中" And InStr(Cells(I, 3), "裸素鱼竿") > 0 Then
n = n + 1
Cells(n + 1, "F") = Cells(I, 1)
Cells(n + 1, "G") = Cells(I, 2)
Cells(n + 1, "H") = Cells(I, 3)
Cells(n + 1, "I") = Cells(I, 4)
End If
Next
End Sub
B列 订单状态名称为 运输中， 且 C列产品名称数据包含了 裸素鱼竿
都能筛选出来
结果从F列显示

追问

代码可以改下，让它直接导出筛选出来的数据么？就是筛选出来的数据存到新的表格里面去。有用必采纳。谢谢

Answer 2

试试下面这段代码，根据需要修改
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 3 Then
If Target.Value = Range("e2") Then Range("e" & Cells(Rows.Count, "e").End(3).Row).Offset(1).Value = Target.Offset(0, -2).Value
If Target.Value = Range("f2") Then Range("f" & Cells(Rows.Count, "f").End(3).Row).Offset(1).Value = Target.Offset(0, -2).Value
End If
End Sub

追问

看看表格把我改下可好，不会，看不懂

Answer 3

我会写，文件呢。有文件才好测试

追问

知道不能传文件

追答

下边有人做了，不错