Oscar Sun

                  Sub 檢查兩兩值有不同者_下二筆不同於前者() '只要隔一筆記錄後有不同值即選取
For Each c In ActiveSheet.Columns(1).Cells
    If w = "" Then
        w = c
    Else
        If StrComp(c, w) = 0 Then
            i = i + 1
        End If
        If i = 1 Then
            i = 0
        Else
            c.Select
            Stop
        End If
        w = ""
    End If
Next

End Sub