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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024