Excel VBA質問箱 IV

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

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


13246 / 76734 ←次へ | 前へ→

【68994】Re:条件判断処理について
お礼  G'z One  - 11/5/5(木) 22:06 -

引用なし
パスワード
   ▼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

========================================================================

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 お礼

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