基于30+列高亮重复行：Excel VBA报错及弹窗需求求助

原代码错误原因 #

• 无效范围引用：Range("A:AA" & Y) 写法错误，正确的单行范围应该是 Range("A" & Y & ":AA" & Y)，原写法生成类似"A:AA2"的无效地址，直接触发"'Range' of Object _Global' failed"错误。
• 整行比较逻辑错误：VBA无法直接通过Range1 = Range2判断多列范围是否完全一致，这种写法仅会比较单个单元格，而非整行所有内容。
• 循环终止条件错误：外层和内层循环的Do While条件用无效范围判断是否为空，无法正确终止循环。
• 过度依赖Select/Activate：频繁的选择操作不仅降低代码效率，还容易因工作表焦点变化引发错误。

修正后的代码 #

Sub HighlightDuplicateRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim x As Long, y As Long
    Dim isDuplicate As Boolean
    Dim colorIdx As Integer
    Dim duplicateCount As Long, groupCount As Long
    
    ' 设置当前工作表，可根据需要修改
    Set ws = ActiveSheet
    ' 获取A列最后一行数据
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    ' 初始化颜色索引（从3开始，避开默认无颜色的xlColorIndexNone）
    colorIdx = 3
    duplicateCount = 0
    groupCount = 0
    
    ' 遍历每一行（从第二行开始，假设第一行是表头）
    For x = 2 To lastRow
        ' 如果当前行未被标记过
        If ws.Range("A" & x & ":AA" & x).Interior.ColorIndex = xlColorIndexNone Then
            isDuplicate = False
            ' 遍历后续行找重复
            For y = x + 1 To lastRow
                ' 比较整行A到AA列的内容是否完全一致
                If Application.WorksheetFunction.CountIfs(ws.Range("A:A"), ws.Range("A" & x), _
                                                        ws.Range("B:B"), ws.Range("B" & x), _
                                                        ws.Range("C:C"), ws.Range("C" & x), _
                                                        ws.Range("D:D"), ws.Range("D" & x), _
                                                        ws.Range("E:E"), ws.Range("E" & x), _
                                                        ws.Range("F:F"), ws.Range("F" & x), _
                                                        ws.Range("G:G"), ws.Range("G" & x), _
                                                        ws.Range("H:H"), ws.Range("H" & x), _
                                                        ws.Range("I:I"), ws.Range("I" & x), _
                                                        ws.Range("J:J"), ws.Range("J" & x), _
                                                        ws.Range("K:K"), ws.Range("K" & x), _
                                                        ws.Range("L:L"), ws.Range("L" & x), _
                                                        ws.Range("M:M"), ws.Range("M" & x), _
                                                        ws.Range("N:N"), ws.Range("N" & x), _
                                                        ws.Range("O:O"), ws.Range("O" & x), _
                                                        ws.Range("P:P"), ws.Range("P" & x), _
                                                        ws.Range("Q:Q"), ws.Range("Q" & x), _
                                                        ws.Range("R:R"), ws.Range("R" & x), _
                                                        ws.Range("S:S"), ws.Range("S" & x), _
                                                        ws.Range("T:T"), ws.Range("T" & x), _
                                                        ws.Range("U:U"), ws.Range("U" & x), _
                                                        ws.Range("V:V"), ws.Range("V" & x), _
                                                        ws.Range("W:W"), ws.Range("W" & x), _
                                                        ws.Range("X:X"), ws.Range("X" & x), _
                                                        ws.Range("Y:Y"), ws.Range("Y" & x), _
                                                        ws.Range("Z:Z"), ws.Range("Z" & x), _
                                                        ws.Range("AA:AA"), ws.Range("AA" & x)) > 1 Then
                    ' 标记为重复
                    isDuplicate = True
                    ' 高亮当前行和找到的重复行
                    ws.Range("A" & x & ":AA" & x).Interior.ColorIndex = colorIdx
                    ws.Range("A" & y & ":AA" & y).Interior.ColorIndex = colorIdx
                    duplicateCount = duplicateCount + 1
                End If
            Next y
            ' 如果找到重复，更新颜色组计数和颜色索引
            If isDuplicate Then
                groupCount = groupCount + 1
                duplicateCount = duplicateCount + 1 ' 加上当前行本身
                colorIdx = colorIdx + 1
                ' 避免颜色索引超出范围（Excel颜色索引最大为56）
                If colorIdx > 56 Then colorIdx = 3
            End If
        End If
    Next x
    
    ' 弹出提示框
    If groupCount > 0 Then
        MsgBox "共发现 " & groupCount & " 组重复记录，涉及 " & duplicateCount & " 行。" & vbCrLf & "已完成重复行高亮。", vbInformation, "重复行处理结果"
    Else
        MsgBox "未发现重复记录。", vbInformation, "重复行处理结果"
    End If
End Sub

代码说明 #

• 范围引用修正：使用Range("A" & x & ":AA" & x)正确指定单行的A到AA列范围。
• 整行重复判断：通过CountIfs函数逐列匹配，确保整行所有列内容完全一致才判定为重复。
• 高效操作：直接操作工作表对象，避免使用Select/Activate，提升代码运行效率。
• 颜色分组高亮：每组重复行使用不同颜色，便于区分不同的重复组，同时限制颜色索引在有效范围内。
• 统计与提示：统计重复组数和涉及行数，通过消息框反馈处理结果。

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