エクセルの関数で一つの列の中から同一または重複を探し出す関数はありますでしょうか

COUNTIFで検索範囲と検索条件を指定できます。

A列を検索する場合は、空白の列に$A$1:$A$20のように検索範囲を指定し、A1を検索条件とします。

1以外が返ってくれば、2つ以上の重複があるということです。

条件付書式を使えば、重複分を簡単に見つけることができます。

例えばＡ列ならば、Ａ列を選択してメニューの書式→条件付書式を選択して、

「数式が」「=AND(A1<>"",COUNTIF(A1:A1000,A1)>1)」

として、書式をパターンから好きな色を選択します。

これで下に同じセルがあって重複になっているセルは色分けされるので削除が簡単です。

同じ処理をVBAで自動でやるときはこんなふうにできます。

Sub Macro()
    Const retu As String = "A"      'Ａ列の意味
    Dim lastRow As Long
    Dim i As Long
    Dim j As Long
    Dim f As Boolean
    lastRow = Cells(Rows.Count, retu).End(xlUp).Row
    For i = lastRow To 2 Step -1
        f = False
        For j = 1 To i - 1
            If Cells(j, retu).Value = Cells(i, retu).Value Then
                f = True
                Exit For
            End If
        Next j
        If f Then
            Cells(i, retu).Delete shift:=xlUp   'セルだけ削除の場合
            'Rows(i).Delete shift:=xlUp         '行ごと削除の場合
        End If
    Next i
End Sub

http://www11.plala.or.jp/koma_Excel/contents6/mame6042/mame60420...

フィルタの重複チェックで調べられます。

A列でA1からA1000にデータが入っているとして

その中の重複分を探す場合、

B列が空いているとしたら、

B2に

=MATCH(A2,$A$1:A1,0)

と入れて、B1000までコピーします。

自分よりも上の行と一致する答えがあれば値を返してきます。

重複していないか、重複しているうちでも、最初の行は

#N/Aが返ってくるので

#N/Aになった行　以外を消せば重複がなくなります。

私は無料で重複チェックのマクロを公開されている下記サイトのマクロを利用させてもらってます。

本当に便利で作業時間の短縮につながります。

http://www.morgan.co.jp/kiso/kiso_ex03.htm