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

追问还可以
但是,还有最后一种情况的如果三个值都不是的话,同时保留含有三个值的行

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com

excel 宏 我写的一段 大神帮我简化一下.

excel 宏我写的一段大神帮我简化一下.