Question

我有一个excel工作簿，我希望在所有工作表中找到所有重复的行并突出显示它们。弄清楚如何把它放在一张纸上。任何可以帮助我的人？

Answer 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

此功能检查所有工作表，只有列＆＃34; A＆＃34;如果没有空白。设置第一次出现和其他的不同颜色...如果你有一个大的XLS或搜索条件更深（检查表格的所有单元格与或不...）prg可以使用大量的时间...

在Excel工作簿中查找重复项

1 个答案: