excel表格用VBA按照条件进行筛选，
答案:3 悬赏:70 手机版
解决时间 2021-02-09 11:51
- 提问者网友：锁深秋
- 2021-02-08 21:52
excel表格用VBA按照条件进行筛选，
最佳答案
- 五星知识达人网友：不如潦草
- 2021-02-08 22:35
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列显示追问代码可以改下，让它直接导出筛选出来的数据么？就是筛选出来的数据存到新的表格里面去。有用必采纳。谢谢
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列显示追问代码可以改下，让它直接导出筛选出来的数据么？就是筛选出来的数据存到新的表格里面去。有用必采纳。谢谢
全部回答
- 1楼网友：千夜
- 2021-02-09 01:25
试试下面这段代码，根据需要修改
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追问看看表格把我改下可好，不会，看不懂
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追问看看表格把我改下可好，不会，看不懂
- 2楼网友：七十二街
- 2021-02-08 23:47
我会写，文件呢。有文件才好测试追问知道不能传文件追答下边有人做了，不错
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯