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