VBA嵌套IF输出错误排查：仅单值与总值均相等时返回TRUE

嘿，我来帮你捋捋这个问题！你要的是只有当单个数值和总计数值完全相等时，代码才返回TRUE，之前用嵌套IF出问题，大概率是逻辑分支没写对，或者不小心踩了VBA的类型声明坑。

先揪出你代码片段里的隐形坑 #

看你变量声明那行：

Dim aPRTS, bNIMS,d19, d8, d25, ud, p19, p8, p25, du19, du8, du25, AudLastCol,AudLastRow As Long

在VBA里，这种写法只有最后一个AudLastRow是Long类型，前面所有变量都是默认的Variant！如果这些变量要存数值，很容易出现类型不匹配的问题，赶紧改成统一声明：

Dim aPRTS As Long, bNIMS As Long, d19 As Long, d8 As Long, d25 As Long, _
    ud As Long, p19 As Long, p8 As Long, p25 As Long, du19 As Long, _
    du8 As Long, du25 As Long, AudLastCol As Long, AudLastRow As Long

实现需求的正确姿势 #

假设你说的“单个数值”是aPRTS，“总计数值”是bNIMS，根本不需要复杂的嵌套IF，直接用逻辑判断就够了：

写法1：直接返回布尔值（最简洁） #

如果只是要得到判断结果，直接赋值就行：

Dim isMatch As Boolean
isMatch = (aPRTS = bNIMS)
' 比如要把结果写到某列：
.Cells(l, "结果列").Value = isMatch

写法2：用IF控制（需要额外操作时用） #

如果相等时还要执行其他代码，就用单IF判断，别嵌套：

If aPRTS = bNIMS Then
    .Cells(l, "结果列").Value = True
    ' 这里可以加相等时要做的其他操作
Else
    .Cells(l, "结果列").Value = False
End If

要是你的需求是「单值等于目标值且总值也等于同一个目标值」 #

比如目标值是200，那逻辑就是两个条件同时满足，用And连接：

Dim targetNum As Long
targetNum = 200 ' 换成你的目标数值

If (aPRTS = targetNum) And (bNIMS = targetNum) Then
    .Cells(l, "结果列").Value = True
Else
    .Cells(l, "结果列").Value = False
End If

为啥你之前的嵌套IF会错？ #

估计你之前的嵌套IF是类似这种写法：

' 错误示例！
If aPRTS = targetNum Then
    If bNIMS = targetNum Then
        .Cells(l, "结果列").Value = True
    End If
Else
    .Cells(l, "结果列").Value = False
End If

这个写法的问题是：当aPRTS等于目标值，但bNIMS不等于时，单元格会留空（不是FALSE），因为第二个IF的Else分支没处理！而用And的逻辑判断就能避免这种遗漏。

要是你能把完整的嵌套IF代码贴出来，我能更精准地定位错误，但先从这些常见问题入手应该能解决你的问题～

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