リストから重複した項目を削除する【解答】

問題はこちらを参照。

【解答】

１．A1に　=String(Count(Search("<='" & B1 & "'",B$1:B$10))-Count(Search("='" & B1 & "'",B$1:B$10)))

　　これをA10までコピペ。

２．C1に　=String(Count(Search(">='" & D1 & "'",D$1:D$10))-Count(Search("='" & D1 & "'",D$1:D$10)))

　　これをC10までコピペ。

３．D1に　=If(IsError(VLookup(String(Row(A1)-1),A$1:B$10,2)),"",VLookup(String(Row(A1)-1),A$1:B$10,2))

　　これをD10までコピペ。

４．E1に　=If(IsError(VLookup(String(Row(A1)-1),C$1:D$10,2)),"",VLookup(String(Row(A1)-1),C$1:D$10,2))

　　これをE10までコピペ。

前回のお題のソートを応用しています。(^。^)