Sub 全选选定范围内小于0的单元()
    Dim rng As Range
    Dim yvhf
    For Each rng In Selection
        If rng < 0 Then
            yvhf = yvhf & rng.Address & ","
        End If
    Next
    Range(Left(yvhf, Len(yvhf) - 1)).Select
End Sub

Sub 全选选定范围内小于0的单元()
    Dim rng As Range
    Dim yvhf
    For Each rng In Selection
        If rng < 0 Then
            yvhf = yvhf & rng.Address & ","
        End If
    Next
    Range(Left(yvhf, Len(yvhf) - 1)).Select
End Sub