0

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
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 に答える