|
▼UO3 さん:
こんばんわ。
早速の回答、どうも有難うございます!
UO3 さんから教えて頂いたコードを下記の様に
組み込んで試したところ、私の期待した通りに
動作してくれました。
助かりました。
また、分からない事があったら投稿することが
あるかもしれませんが、今後ともどうぞ宜しく
お願いいたします。
今回は、お力をお貸し下さりまして、本当に
有難うございました。
========================================================================
Sub ★データの重複チェック★()
'【1】D列+E列を結合し、J列に出力。J列の重複チェック後に,結果をK列に出力。
Dim s As String
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】重複データの件数をメッセージボックスに出力。
If n = 0 Then
s = "ありません"
Else
s = n & "件あります"
End If
MsgBox "重複データは " & s, , "チェック終了"
End Sub
========================================================================
|
|