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

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

有同学问:能不能使用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

 

 

参与评论 您还未登录,请先 登录 后发表或查看评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:书香水墨 设计师:CSDN官方博客 返回首页

打赏作者

logo_28

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值