Excel多列相似值检测问题：现有VBA代码无法输出预期结果

首先得麻烦你把当前的VBA代码贴出来哦，另外可以补充几个关键细节：

• 具体是哪几列需要做匹配（比如列A、B、C vs 列D、E）？
• 你说的“相似词汇”或“最长长度匹配”具体指什么规则？比如是子串包含匹配（比如"cat"匹配"category"）、基于编辑距离的模糊匹配，还是其他逻辑？
• 预期输出的具体形式是什么？比如在新列标记是否匹配，还是直接提取出最长匹配的词汇？

另外，关于忽略大小写的处理，VBA里通常可以用LCase()或UCase()统一转换文本大小写后再比较，这部分如果代码里没处理的话很可能会出问题。给你一个基础的最长子串匹配示例参考，要是你的需求是找目标单元格在指定列中的最长匹配项，可以试试这个思路：

Function FindLongestMatch(targetText As String, compareRange As Range) As String
    Dim cell As Range
    Dim longestMatch As String
    Dim lowerTarget As String
    Dim lowerCellText As String
    
    ' 统一转换为小写，忽略大小写差异
    lowerTarget = LCase(targetText)
    longestMatch = ""
    
    For Each cell In compareRange
        If cell.Value <> "" Then
            lowerCellText = LCase(cell.Value)
            ' 双向检查子串包含关系
            If InStr(lowerTarget, lowerCellText) > 0 Or InStr(lowerCellText, lowerTarget) > 0 Then
                ' 保留长度更长的匹配项
                If Len(cell.Value) > Len(longestMatch) Then
                    longestMatch = cell.Value
                End If
            End If
        End If
    Next cell
    
    FindLongestMatch = longestMatch
End Function

你可以在工作表单元格里直接调用这个函数，比如=FindLongestMatch(A1, D:E)，就能得到A1单元格内容在D、E列中的最长匹配词汇（自动忽略大小写）。不过这只是基础示例，具体得根据你的实际匹配规则调整。

快把你的代码和细节补充一下，我帮你针对性地修改！

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