このブログのリファラーを見ていると、あいかわらず「VBA Excel 重複行」で検索されてくる方が多いですね。
みなさん、そんなに重複行をどうにかしたいのでしょうか？（＾＾；）
重複行について、今までに書いたのは以下の記事です。
こちらは、複数の列で重複している値を探す、というものでした。
こちらは、一つの列の中で重複している値を探す、というものでした。
ただ私の経験で、今までデータの重複行、うんぬんを考えるとき、「重複行をどうしたいのか？」で考えると、一番多いのは、
こんなデータがあったとき、B列で重複している行を１行だけ残して、削除してしまう、つまり、
こうしてしまいたい、という事のような気がします。違いますかね？（＾＾；）
名簿なんかで「同じ人がいたら１行残して後は消す」みたいな処理、多いと思うんですけど。
んで、こういうことをするには、「フィルタ」とかを使うのでしょうけど、あの機能って、いまいちよく分からないんですよね。。。
重複した行を「見えなくする」事や、重複しないデータにして、別の位置に抽出して抜き出す、のは、なんとなく出来たんですが。
あとは並べ替えて、IFを使って前の行と同じ値だったらフラグを立てて、その行を消す。とか。
・・・なんか、余計な項目を作ったり、別のところに書き出したり、並べ替えたりするの、めんどくさいんですよね（＾＾；）
自分がやりたいのは、「重複してる行を１行残して、削除する」という事です。
これってエクセルの機能で一発でできないんでしょうか？（＾＾；）
08/4/10 追記
Excel2007には、これを実現させる機能があるようですね。
こちらのサイトにその機能の詳細がのっています
ということで、VBAで書いてみます。
今回はB列の値をみて、
- 重複していない行は、そのまま残す
- 重複している行は、一番先頭の行を残して、残りは削除する
という条件でやってみます。
-
Sub test()
-
-
Dim lastgyou As Integer
-
Dim i As Integer
-
Dim j As Integer
-
-
Dim checkatai As String
-
-
'B列の最終行を求めます。
-
lastgyou = ActiveSheet.Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row
-
-
'1行目から最終行の前まで繰り返します。
-
For i = 1 To lastgyou - 1
-
-
'チェックする値を、checkataiに代入します。
-
-
checkatai = ActiveSheet.Cells(i, 2).Value
-
-
'今見てる行から、下をチェックします。
-
For j = i + 1 To lastgyou
-
-
'もし、値が同じであれば、
-
If checkatai = ActiveSheet.Cells(j, 2).Value Then
-
-
'その行を削除します
-
ActiveSheet.Rows(j).Delete
-
-
'最終行が１行減ったのでlastgyouの値を減らします。
-
lastgyou = lastgyou - 1
-
-
'チェックしている行を１行前に戻します。
-
j = j - 1
-
-
End If
-
-
Next j
-
-
Next i
-
-
-
End Sub
先頭から１行ずつ、最後の行の前まで見ていきます。
今見てる行の次の行以下を最後の行まで探し、もし今見てる行と同じ値があったら、見つけたほうの行を削除する、という考えかたです。人間が手作業で削除するのと同じですね。
削除した場合、全体の行数が減るのと、次にチェックすべき行（プログラムの j の変数）が１行上に来るので、それも減らす、という感じです。
実行してみると、、、
ん、重複行がなくなりました（＾＾）
とりあえず、ここに置いときます。→vbastudy_24
今回は重複をチェックする対象が、B列だけでした。
これを、
↓
といったように「住所」「名前」の両方が重複している場合削除する、といったように、複数の列をチェックの対象にすることもプログラムを変更すれば可能です。これは次回にやります。
