Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

51346 / 76732

←次へ　｜　前へ→


	【30256】Re:EXCEL重複チェック

ichinose - 05/10/24(月) 9:19 -


	引用なし

	パスワード

もう出かけてしまうので以下のコードでうまくいかないと
投稿は夜になってしまいますが、
コードは今、優哉さんが抱えている問題のブックにではなく、
新規ブックの標準モジュールに記述してください。

'======================================
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
　　
　　'サンプル２
　　
　　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

数式に変更がありますが、基本的には前回と同じです。

0 hits

▼

【30247】EXCEL重複チェック 優哉 05/10/24(月) 7:14