Question

Excel vba 怎么一下子选择所有A列中值是★的单元格?

Excel vba 怎么一下子选择所有A列中值是★的单元格呢?

我是想先选择出所有带★的,然后用EntireRow.Delete掉的
我可以用for 和 Find("查找内容",,,xlWhole).Row可以找到一个,但是一个个删好慢,一次得算半个小时,
我想问问有没有办法一次性选择出然后都删了.

Answer 1

Sub 选取()

Dim arry
y = Range("m65536").End(xlUp).Row

For i = 2 To y

If Cells(i, "m").Value = "★" Then
If IsEmpty(arry) Then
Set arry = Range("m" & i)
Else

Set arry = Union(arry, Range("m" & i))

End If
End If

Next
arry.Select
End Sub

Answer 2

用Find + Do+.FindNext
或者用：for+like