在 Excel 工作簿中查找重复项答案

【问题标题】：Find duplicates in excel workbook在 Excel 工作簿中查找重复项
【发布时间】：2014-07-07 10:16:53
【问题描述】：

我有一个 Excel 工作簿，我想在所有工作表中查找所有重复的行并突出显示它们。想出了如何在一张纸上完成它。谁能帮帮我？

【问题讨论】：

【解决方案1】：

这只是一个起点......

For b = 1 To Sheets.Count - 1
    For e = 1 To 9000
        yy = Sheets(b).Range("A" & e).Value
        If yy = "" Then Exit For
        For k = b + 1 To Sheets.Count
            For i = 1 To 9000
                If Sheets(k).Range("A" & i).Value = yy Then
                    Sheets(k).Range("A" & i).Interior.Color = 65500
                    Sheets(b).Range("A" & e).Interior.Color = 1265500
                End If
                If Sheets(k).Range("A" & i).Value = "" Then Exit For
            Next
        Next
    Next
Next

此功能在所有工作表之间进行检查，如果没有空格，则仅检查“A”列。设置第一次出现的不同颜色和其他颜色...如果您有一个大 XLS 或搜索条件更深入（使用 AND OR NOT ...检查工作表的所有单元格），prg 可以使用很多时间...

【讨论】：