Excel VBA質問箱 IV

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

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


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

32209 / 76734

←次へ　｜　前へ→


	【49764】Re:検索

ichinose - 07/6/20(水) 21:00 -


	引用なし

	パスワード

こんばんは。

>
>また新たに壁にぶつかりました・・・
>重複エラーはうまく動くようになったのですが・・・
>A行のセルの中身が
>
>101
>102
>あああ
>103
>101
>あああ
>104
>
>↑のような場合、文字列の「あああ」は重複対象外とし、
>数値だけ重複チェックをしたいのですが。。。。
>
Keinさんからもコードの提示がありますが、
私の以下のコードも前回のコードの数式部をちょこっと
変更したコードです。

Sub main()
　　Dim rng As Range
　　Dim dup() As Variant
　　Dim g0 As Long
　　For Each rng In Range("a1", Cells(Rows.Count, "a").End(xlUp))
　　　 With rng
　　　　　If Evaluate("if(isnumber(" & .Address & _
　　　　　　　　"),countif(a1:a" & .Row & "," & _
　　　　　　　　.Address & ")=2)") Then
　　　　　　 g0 = g0 + 1
　　　　　　 ReDim Preserve dup(1 To g0)
　　　　　　 dup(g0) = .Value
　　　　　　 End If
　　　　　End With
　　　 Next
　　If UBound(dup()) > 0 Then
　　　 MsgBox Join(dup(), vbCrLf) & " が重複しています"
　　　 End If
　　Erase dup
End Sub

9 hits

▼

【49648】検索 ｘｘｘｘｘ 07/6/14(木) 17:31