Question

我正在尝试使用VBA运行一些过滤器，然后我将数据输出到“分析”表。

到目前为止一切正常 - 但我现在正试图消除URL重复。

If unique_1 <> Sheets(1).Cells(x, 11) Then

上面的代码片段将消除重复项，但前提是我已经按URL排序（这不是我可以预先处理数据的事情）

我希望我可以使用VBA进行排序，但到目前为止还没能到，我的眼睛正在杀了我。任何帮助将不胜感激！

提前感谢您的帮助！

If Sheets(1).Cells(x, 12) = "X URL" Then
        If Sheets(1).Cells(x, 9) > 4 And Sheets(1).Cells(x, 9) < 10 Then               
            '//NEED TO SORT URLS HERE FIRST - BEFORE I CAN FIND DUPES//                
            If unique_1 <> Sheets(1).Cells(x, 11) Then
                O_2 = O_2 + 1
            End If
               unique_1 = Sheets(1).Cells(x, 11)
        End If
End If

Answer 1

在您尝试to sort

的任何范围内使用Range.Sort

作为旁注，您列出的代码中的任何内容似乎都不会删除重复内容。最多只计算有多少。

Answer 2

除非我误解了为什么不使用自动过滤器进行唯一输入？这将在您指定的列中输出一个列表，以便您可以看到发生了什么。

    Range("URL Range").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "Output Range"), Unique:=True

在检查VBA中的重复项之前对URL进行排序

2 个答案: