0

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

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

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

上面的代码片段将消除重复项，但前提是我已经按 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
4

2 回答 2

3

Range.Sort在您尝试排序的任何范围内使用

作为旁注，您列出的代码中似乎没有任何内容可以删除重复项。最多，它计算有多少。

于 2012-07-14T00:36:46.053 回答
0

除非我误读了这个问题，否则为什么不对唯一条目使用自动过滤器？这将在您指定的列中输出一个列表，以便您查看发生了什么。

    Range("URL Range").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "Output Range"), Unique:=True
于 2012-07-14T11:58:57.097 回答