查重复记录

'检查重复记录，并在前面加标识:::
Public Sub 查重复记录()
    Dim iLine As Integer
    Dim sText As String
    Dim iBefore As Integer
    Dim oSheet As Worksheet
    Dim iColumn As Integer
    
    iLine = 2
    iBefore = -1
    iColumn = 1 ' 检查重复的列
    Set oSheet = Sheet1 '检查的工作表
    While oSheet.Cells(iLine, iColumn) <> ""
        If sText = oSheet.Cells(iLine, iColumn) Then
            oSheet.Cells(iLine, iColumn) = ":::" & oSheet.Cells(iLine, iColumn)
            If iBefore = -1 Then
                oSheet.Cells(iLine - 1, iColumn) = ":::" & oSheet.Cells(iLine - 1, iColumn)
            End If
        Else
            sText = oSheet.Cells(iLine, iColumn)
            iBefore = -1
        End If
        iLine = iLine + 1
    Wend
End Sub