excel 宏 我写的一段 大神帮我简化一下.
发布网友
发布时间：2022-04-19 18:17
共1个回答
热心网友
时间：2023-05-18 18:24
'-----------筛选
x = Cells(2, 2)
If x = 2101 Or x=2301 Or x=2302 Then '1、2、3
v = 4
While Cells(v, 8) <> ""
w = Sheets("Sheet1").Range("H" & v)
If w <> x Then '这里就是关键，x有三种可能
Rows(v).Delete '删除整行
Else
v = v + 1
End If
Wend
End If '----------1、2、3
追问还可以
但是,还有最后一种情况的 如果三个值都不是的话,同时保留含有三个值的行
