VBA 一次性选中符合条件的单元格 整行删除

13 篇文章 1 订阅
8 篇文章 2 订阅

有同学问:能不能使用union函数将符合条件的单元格所在行全部选中,然后删除.

如下图:删除黄色底纹的标题行

为此,给出代码如下:

Sub test()
Dim arr, myrow As String
Dim cc As Variant, ran As Range
r = Sheet1.Range("b65536").End(xlUp).Row
arr = Sheet1.Range(B1:B" & r).Value

For i = 1 To UBound(arr, 1)
    If arr(i, 1) = "count" Then
        myrow = myrow & i & ","
        myrow = myrow & i + 1 & ","
    End If
Next i

cc = VBA.Split(myrow, ",")
'union中必须是对象.所以这种写法必须先让一个变量定义为具体的对象
Set ran = Rows(cc(0))
For i = 1 To UBound(cc) - 1 '因分割后有一个空字符产生,所以舍掉
    Set ran = Application.Union(ran, Rows(cc(i)))
Next i

ran.Delete
Set ran = Nothing
End Sub

 

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值