Excel中VBA的If Else语句内StrComp字符串比较输出错误如何解决？

核心错误点 #

• StrComp 函数返回值逻辑与判断逻辑完全倒置，是问题根源如下：
  StrComp(string1, string2)的返回规则：
  • 两字符串内容相等时返回0，在VBA逻辑判断中0等价于False
  • 两字符串内容不等时返回-1或1，非0值在VBA逻辑判断中都等价于True
    你当前写的If StrComp(cell.Value, cell.Offset(-1, 0)) Then逻辑是：两串不等时进入分支输出1，相等时输出0，刚好和你“相同输出1、不同输出0`的需求完全相反。
• 额外隐含问题：
  • 未显式声明xTitleId变量，若开启强制声明变量规范不符
  • 遍历范围如果包含工作表第1行时，cell.Offset(-1, 0)会引用无效行触发运行报错
  • 代码结束未恢复ScreenUpdating状态，会导致Excel界面无法正常操作

修复后的完整代码 #

Option Compare Text 

Sub IF_Loop()    
    Dim cell As Range    
    Dim InputRng As Range, checkRng As Range
    Dim xTitleId As String
    Set cell = ActiveCell    
    Set InputRng = Application.Selection     
    xTitleId = "duplicateSearch"

    Set checkRng = Application.InputBox("Title search :", xTitleId, Type:=8)

    Application.ScreenUpdating = False

    For Each cell In checkRng.Columns(1).Cells
        ' 跳过第1行避免引用无效
        If cell.Row > 1 Then
            ' 明确判断两串相等的场景输出1
            If StrComp(cell.Value, cell.Offset(-1, 0).Value) = 0 Then    
                cell.Offset(0, -2).Value = 1    
            Else
                cell.Offset(0, -2).Value = 0    
            End If
        End If
    Next cell
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub

简化写法参考 #

因为你已经开启了Option Compare Text全局不区分大小写对比，也可以直接用等于号判断，逻辑更直观：

If cell.Value = cell.Offset(-1, 0).Value Then

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