如何在Excel中通过VBA快速查找多列重复的值

今天项目组的一个同事问我如何快速的找到一个Excel中第3列和第5列的值完全重复的值，我想了想虽然Excel中自带查找重复值的功能，但是好像只能对同一列进行比较，所以就写了一个VBA进行处理，VBA非常简单，但效果不错。

Sub FindDuplicatesInColumn()

    Dim lastRow As Long

    Dim matchFoundIndex As Long

    Dim iCntr As Long

    lastRow =

    ' 初始化临时列， 第7列用来存放结果，第8列将3 5两列的值拼接起来，方便判断

    For iCntr =  To lastRow

        Cells(iCntr, ) = ""

        Cells(iCntr, ) = Cells(iCntr, ) & Cells(iCntr, )

    Next iCntr

    For iCntr =  To lastRow

        If Cells(iCntr, ) <> "" Then

            ' 判断是否存在相等的拼接后的列，如果存在，则记录到结果中

            matchFoundIndex = WorksheetFunction.Match(Cells(iCntr, ), Range("H1:H" & lastRow), )

            If iCntr <> matchFoundIndex Then

                Cells(iCntr, ) = "Duplicate with " & matchFoundIndex

            End If

        End If

    Next iCntr

End Sub