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

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