EXCEL菜鸟提问：如何一次选定表内所有的负数

来源：百度知道 编辑：UC知道 时间：2024/06/09 05:40:51
一张表格内的数据，有正数也有负数，如何快速一次选定所有的负值？能否用定位实现？

因为系统的定位功能就那么多，所以你这个貌似简单的要求却不容易做到！

不过呢，用一个小宏就很容易实现了！

Sub SelectNeg()
'从选中的区域中找需要的单元格
Dim myrange As Range, m As Range
For Each m In Selection
m.Activate
If m.Value < 0 Then '值小于零的被选中
If myrange Is Nothing Then
Set myrange = m
Else
Set myrange = Union(myrange, m)
End If
End If
Next m
If Not myrange Is Nothing Then
myrange.Select
Else
MsgBox "没有找到数据！", vbInformation
End If
End Sub

点一个格，按住ctrl，再点别的格吧。