複数データを比較し、同じものがあったら削除する。マクロ

Question

Sub serach_delete

Dim i as integer
Dim j as Integer

For i 1 to Cells(Rows.Count, 1).End(xlUp).Row
For j 2 to Cells(Rows.Count, 1).End(xlUp).Row

If Cells(i, 4).Value = Cells(j, 4).Value Then
Rows(j).delete

End If

next j
next i

End Sub

１（i）行目と２(j)行目のセルを比較し、同じ内容であれば、
jの行を削除する。削除し終わったら、１（i）行目と３（j）行目を比較。データの内容が異なっていればスルー・・・といったマクロを組みたいと思っております。

私が作成したマクロを実行すると、削除しなくてもいいデータが削除されてしまいます。どなたか原因が分かる方、もしくは、他に良いやり方があれば、ご教示頂ければと思います。

以上、宜しくお願い致します。

数字と漢字と空白が混じったデータとなっております。

Answer 1

1. iのループの終わりが1つ余計。
2. jのループが2から固定になっている。
3. 削除したあとjのカウンタが進んでしまうので一行飛ばしてしまう。

上記3点が問題でしょうか。

Sub serach_delete()

    Dim i As Integer
    Dim j As Integer

   'For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row - 1 '(1)
       'For j = 2     To Cells(Rows.Count, 1).End(xlUp).Row
        For j = i + 1 To Cells(Rows.Count, 1).End(xlUp).Row '(2)

            If Cells(i, 4).Value = Cells(j, 4).Value Then
                Rows(j).Delete
                j = j - 1 '(3)
            End If

        Next j
    Next i

End Sub

Comments

[ExcelVBAer]

よくあるケースですが、
行単位で削除する場合、最終行から上へ回さないと、
j の本来の位置がずれるので、正しく処理できないケースが出てきますね。

[ttyp03]

jがずれる件、指摘が漏れてたので追記しておきました。
本来なら下から回したいですよね。

[ExcelVBAer]

本来、ということであれば、
行単位でクリアして、
キーとなる列でソートをかける事が多いですね。

位置ズレのバグが起きにくいですし、
処理時間も早くなりますよ～
(行削除はデータ量が多いと時間がかかるので。。。)

[ttyp03]

データ量にもよりますが、本気でやるなら画面描画も無効にしたり、色々ありますね。

[tattakahiiii]

解決致しました。ありがとうございました！

Answer 2

重複削除をする機能は、不具合があるので使わない方がいいみたいです。
修正パッチ等で、もう直っていればいいと思いますが、
確認しにくいので、マクロや数式で対応する方が無難ですね。

こういうケースでよく使うのは、
Scripting.Dictionary です。

Dictionary の Exists,Add を使えば簡単です。
詳細はご自分で調べてください。

Comments

[s_george]

重複削除に不具合があるんですか？
情報に疎いせいなのか初めて聞きました。
どんな不具合が挙がっているんですか？

[ExcelVBAer]

エクセル　重複削除　不具合　で検索してみてください。

[s_george]

検索して1ページ目だけ見ましたが、不具合らしい報告は見つけれませんでした。
もっと深く見ないと出てきませんか？

[ExcelVBAer]

こちらではChromeの検索結果の１ページ目に１０個ある中、５つが該当しています。
がんばってください。

[s_george]

もしかして空白スペースがあると削除できないってのを不具合だとおっしゃってますか？
もしそうであるならば果たして不具合と言うべきなのでしょうか？

[ExcelVBAer]

自分の伝えたい内容はこちらに書かれています。
https://ameblo.jp/sugoikaizen/entry-12040791619.html

あなたが重複削除を使えばいい、と主張したいなら、
ご自分の欄で回答してください。

Answer 3

重複削除をする機能はバージョンにもよりますがExcelの機能を探せばあったりしますよ

Comments

[n_takapyon]

あっ。。。ケアレスミス失礼しました。
動きを正しく認識してませんでした。
解答を編集しておきます。