Excel VBA質問箱 IV

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

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


13260 / 76734 ←次へ | 前へ→

【68980】条件判断処理について
質問  G'z One  - 11/5/5(木) 14:56 -

引用なし
パスワード
   皆様、こんにちは。

データの重複チェックを行うマクロを以前作成したのですが、
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

========================================================================
2 hits

【68980】条件判断処理について G'z One 11/5/5(木) 14:56 質問
【68981】Re:条件判断処理について リンク 11/5/5(木) 15:16 発言
【68991】Re:条件判断処理について G'z One 11/5/5(木) 21:10 質問
【68992】Re:条件判断処理について UO3 11/5/5(木) 21:22 発言
【68994】Re:条件判断処理について G'z One 11/5/5(木) 22:06 お礼

13260 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free