Exel 重複データの抽出

質問

Exel2003を使用してます。

A列（A2～A25000まで）に数字（10桁程度）が大量に並んでいます。

その中に、同じ数字が存在してるのですが、

重複する数字を削除したい
　　　もしくは
重複する数字を抽出したい　　のですが、

関数などで出来ないでしょうか？

よろしくお願いします。

回答No.3

maruru01 · ベストアンサー

こんにちは。maruru01です。

数式以外の方法です。
A列を選択して、メニューの[データ]→[フィルタ]→[フィルタオプションの設定]で、
[重複するレコードは無視する]にチェックを入れてフィルタを掛けます。
これで重複なしでフィルタリングされます。
また、[抽出先]の[指定した範囲]にチェックを入れて、
[抽出範囲]に書き出す範囲（の左上のセル）を指定すると、
重複なしのデータが抽出範囲へ書き出されます。

お礼

ありがとうございます！！！
私が何となく記憶のどこかにあった方法はこれでした！

妙にスッキリしましたぁ～

回答No.5

KenKen_SP

＞関数などで出来ないでしょうか？

、、、VBAは却下？、、、参考なら？

関数やフィルタよりも早いかもしれません。

テスト環境：Win98SE ＋ EXCEL2002(SP3)

データの構成にもよりますが、CPU:C500MHz Mem:192M の今となっては非力なノートPCで、25000件の
十桁数字のデータを約5秒程度で処理できました。ご参考までに。ソースは汚いですが。

【以下コード】

Sub 重複データ除去()

　　Dim objDic As Object
　　Dim DataRng As Range
　　Dim rngCel As Range
　　Dim strKey As String

　　On Error Resume Next
　　Set DataRng = Application.InputBox( _
　　　　"・連続するセルを選択するには" & vbCrLf & "[Shift]+[Ctrl]+[矢印キー]が便利です" & vbCrLf & _
　　　　"・セル範囲は連続していなくても構いません", "データ範囲を指定します", Type:=8)
　　If DataRng Is Nothing Then Exit Sub
　　On Error GoTo 0

　　'重複の無い値リスト
　　Set objDic = CreateObject("Scripting.Dictionary")
　　With objDic
　　　　'String型の変数で比較する（Long型より高速)
　　　　For Each rngCel In DataRng
　　　　　　strKey = rngCel.Value
　　　　　　If Not (IsEmpty(strKey) Or .Exists(strKey)) Then
　　　　　　　　.Add Key:=strKey, Item:=Empty
　　　　　　End If
　　　　Next rngCel
　　　　'貼付け先

SelectPasteCell:

　　　　On Error Resume Next
　　　　Set DataRng = Application.InputBox( _
　　　　　　"重複のない値リストの準備ができました" & vbCrLf & _
　　　　　　"セルをひとつ選択して下さい", "データ貼付け先のセルを指定します", Type:=8)
　　　　If DataRng Is Nothing Then Exit Sub
　　　　If DataRng.Rows.Count > 1 Or DataRng.Columns.Count > 1 Then
　　　　　　MsgBox "セルをひとつだけ選択して下さい"
　　　　　　GoTo SelectPasteCell
　　　　End If
　　　　On Error GoTo 0

　　　　If .Count > 65536 - DataRng.Row Then
　　　　　　res = MsgBox("選択されたセルでは全ての値を貼付けることができません" & vbCrLf & _
　　　　　　　　　　"続行しますか？", vbYesNoCancel + vbDefaultButton2 + vbExclamation, "警告")
　　　　　　Select Case res
　　　　　　　　Case Is = vbCancel: GoTo ExitHandler
　　　　　　　　Case Is = vbNo: GoTo SelectPasteCell
　　　　　　　　Case Else
　　　　　　End Select
　　　　End If
　　　　DataRng.Resize(.Count) = Application.Transpose(.keys)
　　End With

ExitHandler:
　　Set objDic = Nothing

End Sub

お礼

ＶＢＡは習ったことがあるだけでして。。。
処理は５秒ほど、ということですが、
残念ながら私の頭での処理時間はもっとかかってしまいそうです。

こういう操作も出来れば、もっと便利なんですね。
ありがとうございました。

回答No.4

takibo

B列を作業列として
(1)B2に「=COUNTIF($A$2:$A2,A2)」と入力
(2)B3～B25000にコピー
B列が「2」以上になっているデータはその数だけ重複していることになります。

お礼

ありがとうございます。

本当に色々な方法があるものですね。
重複している数を知る、ことも出来るのですねー
参考にさせて頂きます。

回答No.2

noname#13108

こんにちは。

1.A2:A25000を小さいほうから順に並び替え
2.B2に「=exact(a2,a3)」を入力
3.B3以降にコピー・ペースト
（B2セル右下隅にカーソルをもって行き、黒十字カーソルになったら、Wクリック）
4.B列を最優先に小さいほうから順に並び替え
5.A列の「並べ替え前のA25000の数値」より下に表示されている数値が、求めたい重複した数値

ちょっとややこしく、面倒かもしれませんが、
マクロに頼らず、時間もかからないと思います。

お礼

ありがとうございました。
おっしゃる通り、あまり時間がかからず出来ました。

回答No.1

apollo1200

私は重複調査のときは下記のマクロを使用させてもらってます。25000件ですと少し時間がかかるかもしれないですけど。

参考URL：

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

お礼

早速にありがとうございました。

便利なＵＲＬを教えて頂いたので、お気に入りに入れてしまいました。
色々と今後の参考にさせて頂きます。