Excel VBA多行列值比对及重复行字段更新问题求助

核心思路是先定位连续相同的拼接值组，再批量处理该组，而非逐行判断触发逻辑。这样能直接匹配最大重复行数，且处理完一组后自动跳转到下一组的起始行。

具体实现步骤 #

1. 预先生成所有行的拼接值数组（保留你原有的逻辑）
2. 从起始行开始，向后遍历找到所有与当前行拼接值相同的连续行，确定重复组的完整范围
3. 对该重复组执行字段更新操作
4. 将遍历指针直接跳到重复组的下一行，开始下一轮检查

修改后的代码示例 #

Dim conc As Range                               'Concatenated fields
Dim iconc() As Variant
Dim startRow As Integer ' 重复组的起始行索引（对应iconc数组的下标）
Dim endRow As Integer   ' 重复组的结束行索引（对应iconc数组的下标）
Dim totalRows As Integer

' 初始化拼接值数组（和你原代码逻辑一致）
ReDim iconc(UBound(iMatn) - 1, 1)
For iNum = 2 To UBound(iMatn)
    iconc(iNum - 1, 1) = iMatn(iNum, 1) & iVendr(iNum, 1) & iInd1(iNum, 1) & iInd2(iNum, 1)
Next iNum

totalRows = UBound(iconc, 1)
startRow = 1 ' 数组下标1对应原表格第2行

Do While startRow <= totalRows
    endRow = startRow
    ' 向后遍历，找到所有连续相同的拼接值
    Do While endRow < totalRows And iconc(endRow + 1, 1) = iconc(startRow, 1)
        endRow = endRow + 1
    Loop
    
    ' 仅当重复组长度≥2时执行更新
    If endRow > startRow Then
        ' 转换数组下标为原表格行号：原表行 = 数组下标 + 1
        Dim tableStartRow As Integer, tableEndRow As Integer
        tableStartRow = startRow + 1
        tableEndRow = endRow + 1
        
        ' 示例：假设Extra字段在第5列，替换成你实际的列号/更新逻辑
        Range(Cells(tableStartRow, 5), Cells(tableEndRow, 5)).Value = "目标更新值"
    End If
    
    ' 跳到下一组的起始行，跳过已处理的重复行
    startRow = endRow + 1
Loop

关键逻辑说明 #

• 重复组定位：嵌套Do While循环一次性锁定整个连续相同的拼接值组，不管是2个还是5个重复行，都能完整识别，不会触发中间的逐行判断
• 批量更新：直接针对重复组的范围批量操作，效率比逐行更新更高
• 指针跳转：处理完一组后，startRow直接跳到下一组起始位置，彻底避免重复处理已检查过的行

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