エクセルで重複チェックをしたいと思っています。

この例に限っていえば、

以下の操作をExcelマクロで実現できそうです。

１．各セルの文字数を取得

２．１で取得した文字数で昇順にソート

３．1番目のデータをキーに2番目以降のデータをキーの文字数分Left関数で取り出し、キーと同じなら削除してシフト（列並びなら上方向にシフト）、という操作を最後のデータまで続ける

４．以降同様に、n番目のデータをキーにしてn+1番目以降の～最後のデータまで続け、これを最後のデータの一つ手前のデータがキーになるまで繰り返す

５．４が全て終わると例のようなものだけが残ります

ただし、文字列の途中に同じものがある場合は適用できません。

あまりきれいではないですが、とりあえず以下のやり方でできます。

Sub test()

Dim i, j

Dim strKey

'URLのある列をソート（A列）

Columns("A:A").Select

Selection.Sort Key1:=Range("A1"), Order1:=xlAscending

i = 1

Do

'キーとなるセルを設定

strKey = Cells(i, 1).Value

j = i + 1

Do

'キーのセル値と比較セル値のキーセル値の文字数分を比較し同じなら、比較セルを削除sし上方向へシフト

If strKey = Left(Cells(j, 1).Value, Len(strKey)) Then

Cells(j, 1).Delete Shift:=xlUp

j = j - 1

End If

'最後まで比較し終わったらこの処理は終了

If Cells(j, 1).Value = "" Then

Exit Do

End If

j = j + 1

Loop

'全て比較し終わったら全処理終了

If Cells(i, 1).Value = "" Then

Exit Do

End If

i = i + 1

Loop

End Sub

手作業の方針で

参考ＵＲＬ

http://blog.goo.ne.jp/poco0704/e/fe145cd1d17fd305815405be57f604d...

http://aaaaa.jp/

http://aaaaa.jp/12345

http://aaaaa.jp/12345/00000

http://bbbbb.jp/

http://bbbbb.jp/123

http://bbbbb.jp/234

http://bbbbb.jp/345

この場合、「/」でセルを分割

その後、隣のセルにでも必要な部分のみを文字列結合。（＆を使うやつ）

その後ピボットテーブルにかけます。

www.が入る場合もあるのであれば、www.は置換で消しちゃえばいいかと。

ごめんなさい。今手元にエクセルがないので試してません・・・。

他の人の回答とかぶりそうですが・・・

説明するとやっかいそうですが、やってみれば簡単です。

前提

1. 一致する必要があるのは "http://aaaaa.jp/"の箇所であるとします。

2. 最終的に残す部分も 1 と同様とします。

3. 一致に際しては、一致する分でソートされているものとします。

4. Excel2000にての手順とします。

手順

※例題を元にします。

1. 例題を全て A1 を基準にして貼り付ける

2. シート全体を選択して、A列でメニューの「データ」->「並べ替え」を選択して「最優先されるキー」が列Aになっていることを確認して「OK」を押下

3. A列を選択してメニューの「データ」->「区切り位置」を選択して区切り位置指定ウィザードを表示

4. 「カンマやタブなど・・・」を選択して「次へ」ボタン押下

5. 「区切り文字」のその他のところに "/" を入力して「次へ」ボタン押下。次の画面で「完了」ボタン押下。これで、"/"で分解される。

6. A列を選択して右クリックメニューより挿入を選択

7. 挿入した A列のA1セルに、=B1&"//"&D1&"/" を入力

8. A1列をデータの最終行まで、フィル(セルの右下の辺りをつかんで下に引っ張る)で入力

9. A列を選択して右クリックメニューより挿入を選択

10. A1セルに 0 を入力

11. A2セルに =IF(B1=B2,1,0) を入力

12. A2セルをデータの最終行までフィルで入力。この時点で、重複している行が 1、重複していない行が0になる。

13. A列を選択して右クリックメニューより挿入を選択

14. B列を選択して右クリックメニューよりコピー

15. A列を選択して右クリックメニューの「形式を選択して貼り付け」を選択

16. 「貼り付け」の「値」を指定して「OK」ボタンを押下

17. シート全体を選択して、A列でメニューの「データ」->「並べ替え」を選択して「最優先されるキー」が列Aになっていることを確認して「OK」を押下。この時点で、重複していない行のみが先頭の方にソートされる。

18. 上から、先頭が 0 のものが重複なしの行なので、不要な部分を削除する。

もうちょっと、簡略出来そうですが、まぁこんな感じです。

仕様としてはこんな感じになるでしょうか。

「URLで最初の階層が一致するものがあれば先に出てきたものを残す」

その仕様で最初の回答を変更してみます。

Sub test()
    Dim r1 As Range
    Dim r2 As Range
    For Each r1 In Selection
        If r1.Value <> "" Then
            For Each r2 In Selection
                If r2.Value <> "" And r1.Address <> r2.Address And _
                    StrSep(r2.Value) = StrSep(r1.Value) Then
                    r2.Value = ""
                End If
            Next
        End If
    Next
End Sub

Function StrSep(str As String) As String
    Dim i As Integer
    i = InStr(1, str, "://")
    If i > 0 Then
        StrSep = Left(str, InStr(i + 3, str, "/"))
    Else
        StrSep = ""
    End If
End Function

（細かい点を確認できるように、コメント欄をオープンされることをお勧めします。）