|
皆様、こんにちは。
データの重複チェックを行うマクロを以前作成したのですが、
1点改造を加えたく、どなたか分かる方がいれば、ご教授下さい。
下記のマクロでは、データの重複が必ずある事を前提の上、
メッセージボックスに「重複データは、●件あります」と
表示しています。
重複が0件の場合も、「重複データは、0件あります」と
表示されるので、重複が0件の場合は、
「重複データはありません」と表示されるようにしたいです。
申し訳ありませんが、宜しくお願いいたします。
========================================================================
Sub ★データの重複チェック★()
'【1】D列+E列を結合し、J列に出力。J列の重複チェック後に,結果をK列に出力。
Dim n As Long
With Range("K2:K" & Cells(Rows.Count, "E").End(xlUp).Row)
.Offset(, -1).FormulaR1C1 = "=RC[-6]&RC[-5]"
.Formula = "=IF(COUNTIF(J:J,J2)>1,""重複"","""")"
.Value = .Value
n = WorksheetFunction.CountA(.Cells)
End With
'【2】"セルA1"に移動
Range("A1").Select
'【3】重複データの件数をメッセージボックスに出力。
MsgBox "重複データは " & n & "件あります", , "チェック終了"
End Sub
========================================================================
|
|