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

我正在尝试使用VBA运行几个filter，然后将数据输出到“分析”工作表。

一切工作，因为它应该到目前为止 – 但我现在试图消除URL重复。

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

上面的代码片段将消除重复，但只有当我已经sorting的URLS（这不是我可以做的数据前期）

我希望我可以用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

使用Range.Sort你正在尝试sorting的任何范围

作为一个方面说明，你列出的代码中没有任何东西似乎删除重复。 最多只能算有多less。

Answer 2

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

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