Excel VBA質問箱 IV

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

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


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

13644 / 76807

←次へ　｜　前へ→


	【68666】Re:セルとセルを組み合わせ、出力する方法

kanabun - 11/4/3(日) 22:41 -


	引用なし

	パスワード

▼G'z One さん：
>[D]列のKEY と　[E]列のコードを組み合わせて、[J]列に
>注文NOを

こうですかね？

Sub 重複Check()
　　With Range("K2:K" & Cells(Rows.Count, "E").End(xlUp).Row) 'K列
　　　　.Offset(, -1).FormulaR1C1 = "=RC[-6]&RC[-5]"　　　　　'J列=D列&E列
　　　　.Formula = "=IF(COUNTIF(J:J,J2)>1,""重複"","""")"　　 'K列
　　　　.Value = .Value
　　End With
　　MsgBox "チェック終了"
End Sub

0 hits

▼

【68664】重複チェックの方法について G'z One 11/4/3(日) 21:31