Excel VBA：工作表值相等判断宏失效及代码运行问题求助

核心问题原因 #

• 语法错误：代码中End Sub写在了Next i之前，导致循环还没执行完就强制结束宏，这是宏无法正常运行的直接原因。
• 变量声明不规范：
  • Dim ttl, i, j As Integer 仅j被声明为Integer类型，ttl和i默认是Variant类型，可能引发类型相关的比较错误。
  • ttls变量未声明，属于隐式声明，容易导致意外的逻辑错误。
• 逻辑错误：当前循环仅对比两行相同行号的单元格值，完全不符合“判断Tabelle1中的值是否存在于stock整张表”的需求。
• 可能的类型不匹配：如果单元格值是文本格式的数字（如"123"）和数字格式的123，直接用=比较会被判定为不相等。

修复后的代码 #

Sub total()
    Dim ttl As Integer, i As Integer, j As Integer
    Dim ttls As Integer
    Dim wb As Workbook
    Dim stk As Worksheet, crnt As Worksheet, lst As Worksheet
    Dim matchFound As Boolean
    
    Set wb = ActiveWorkbook
    Set stk = wb.Sheets("stock")
    Set crnt = wb.Sheets("Tabelle1")
    Set lst = wb.Sheets("liste")
    
    ttl = crnt.UsedRange.Rows.Count
    ttls = stk.UsedRange.Rows.Count
    
    ' 清空liste表原有数据（可选，避免残留旧数据）
    lst.Range("A2:C" & lst.UsedRange.Rows.Count).ClearContents
    
    ' 遍历Tabelle1的每一行
    For i = 2 To ttl
        matchFound = False
        ' 遍历stock表的每一行查找匹配值
        For j = 2 To ttls
            ' 统一转成文本比较，避免类型不匹配问题
            If StrComp(CStr(crnt.Range("E" & i).Value), CStr(stk.Range("A" & j).Value), vbTextCompare) = 0 Then
                lst.Range("A" & i).Value = stk.Range("A" & j).Value
                lst.Range("B" & i).Value = stk.Range("E" & j).Value
                lst.Range("C" & i).Value = stk.Range("D" & j).Value
                matchFound = True
                Exit For ' 找到匹配后退出内层循环，提升效率
            End If
        Next j
        
        ' 可选：如果没找到匹配，可以标记提示
        If Not matchFound Then
            lst.Range("A" & i).Value = "无匹配"
        End If
    Next i
    
    lst.Select
End Sub

关键修复说明 #

• 修正语法结构：将End Sub移到Next i之后，确保循环完整执行。
• 规范变量声明：明确所有变量的类型，避免隐式声明和类型模糊问题。
• 调整匹配逻辑：使用双层循环，遍历stock整张表查找Tabelle1中每行E列的值，完全符合需求。
• 解决类型不匹配：用CStr将单元格值转成文本，再用StrComp函数进行比较，避免数字与文本格式的差异导致的匹配失败。
• 添加效率优化：找到匹配后用Exit For退出内层循环，减少不必要的遍历。
• 可选的空值处理：添加未匹配时的标记，方便快速查看结果。

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