|
もう出かけてしまうので以下のコードでうまくいかないと
投稿は夜になってしまいますが、
コードは今、優哉さんが抱えている問題のブックにではなく、
新規ブックの標準モジュールに記述してください。
'======================================
Sub test()
Dim rng As Range
Dim add As String
'サンプル1
With Range("a1:a100")
.NumberFormatLocal = "G/標準"
.Formula = "=row()"
.Value = .Value
End With
Set rng = Range("a1", Cells(Rows.Count, 1).End(xlUp))
add = rng.Address & "," & rng.Address
If Evaluate("=ROUND(SUM(1/IF(COUNTIF(" & add & ")=0,1,COUNTIF(" & add & "))),0)") = rng.Count Then
MsgBox rng.Address & " 中に重複なし"
Else
MsgBox rng.Address & " 中に重複あり"
End If
'サンプル2
With Range("a1:a100")
.Formula = "=row()"
.Value = .Value
End With
Range("a1:a5").Value = 1
Set rng = Range("a1", Cells(Rows.Count, 1).End(xlUp))
add = rng.Address & "," & rng.Address
If Evaluate("=ROUND(SUM(1/IF(COUNTIF(" & add & ")=0,1,COUNTIF(" & add & "))),0)") = rng.Count Then
MsgBox rng.Address & " 中に重複なし"
Else
MsgBox rng.Address & " 中に重複あり"
End If
End Sub
数式に変更がありますが、基本的には前回と同じです。
|
|