Excel VBA判断变量是否大于/小于0分支失效问题求助

让我看看你的代码里的问题——这里有几个关键错误导致你的判断分支被跳过，我帮你梳理一下：

1. 致命的命名冲突：使用VBA内置对象名作为变量名 #

你定义了 Dim Selection As Range，但Selection是Excel VBA的内置对象，专门用来表示当前用户选中的单元格区域。用这个名字作为自定义变量会严重混淆代码逻辑：你以为是在操作自己定义的Range变量，但VBA可能会和内置的Selection对象搞混，导致后续的数值读取完全不符合预期，这大概率是你的分支判断直接跳过的核心原因。

解决方法：把这个变量名改成不会冲突的名字，比如SelectionRng。

2. 笔误导致的逻辑断裂 #

在第一个嵌套的ElseIf判断里，你写了：

ElseIf SkillContr < Test Then

但Test这个变量根本没有定义过！VBA里未定义的变量默认值是0，但这是一个错误，而且会让逻辑变得不可靠——如果SkillContr等于0，这个条件也不会触发，直接跳过整个分支。你这里明显是想判断SkillContr < 0，把Test改成0即可。

3. 其他需要优化的细节（避免后续踩坑） #

• 明确引用单元格的Value属性：虽然VBA默认会取Range的Value，但为了代码清晰、避免意外（比如单元格是文本格式的数字），建议把CDbl(Allocation)改成CDbl(Allocation.Value)，同理修改其他Range转数值的代码。
• 限定Range的工作表对象：你的代码里Range("B1")没有指定工作表，在循环遍历所有工作表时，这会一直修改当前活动工作表的B1，而不是你正在处理的Sh工作表。要改成Sh.Range("B1")才对。
• 处理非数值单元格的情况：如果目标单元格里的内容不是可转换的数值，CDbl会抛出运行时错误，建议添加IsNumeric判断提前过滤。

修正后的完整代码 #

Sub BA()
    Dim Sh As Worksheet
    Dim Skill As Range
    Dim Allocation As Range
    Dim SelectionRng As Range ' 重命名变量，避免和内置Selection冲突
    Dim SelectionText As String
    Dim AllocationText As String
    Dim AllocationDetract As String
    Dim SelectionDetract As String
    Dim SelectionLess As String
    Dim AllocationLess As String
    Dim AllocationContr As Double
    Dim SkillContr As Double
    
    SelectionText = " Text 1 "
    AllocationText = " Text 2 "
    SelectionLess = " Text 3"
    SelectionDetract = "Text 4"
    AllocationDetract = "Text 5."
    AllocationLess = " Text 6"
    
    For Each Sh In ThisWorkbook.Worksheets
        With Sh.UsedRange
            Set Skill = .Cells.Find(What:="Skill")
            ' 先判断Skill是否找到，避免后续Offset出错
            If Not Skill Is Nothing Then
                Set Allocation = Skill.Offset(15, 1)
                Set SelectionRng = Skill.Offset(15, 0)
                
                ' 先检查单元格内容是否为数值，避免转换错误
                If IsNumeric(Allocation.Value) And IsNumeric(SelectionRng.Value) Then
                    AllocationContr = CDbl(Allocation.Value)
                    SkillContr = CDbl(SelectionRng.Value)
                    
                    If AllocationContr > SkillContr Then
                        If SkillContr > 0 Then
                            Sh.Range("B1").Value = Sh.Range("B1").Value & AllocationText & SelectionLess
                        ElseIf SkillContr < 0 Then ' 修正Test为0
                            Sh.Range("B1").Value = Sh.Range("B1").Value & AllocationText & SelectionDetract
                        End If
                    End If
                    
                    If AllocationContr < SkillContr Then
                        If AllocationContr > 0 Then
                            Sh.Range("B1").Value = Sh.Range("B1").Value & SelectionText & AllocationLess
                        ElseIf AllocationContr < 0 Then
                            Sh.Range("B1").Value = Sh.Range("B1").Value & SelectionText & AllocationDetract
                        End If
                    End If
                End If
            End If
        End With
        Set Skill = Nothing
    Next
End Sub

另外我还加了If Not Skill Is Nothing Then的判断，避免Find方法找不到"Skill"时，后续的Offset操作抛出错误，让代码更健壮。

内容的提问来源于stack exchange，提问作者BRolf