| |
▼kanabun さん：
こんばんわ。
回答、どうもありがとうございます。
早速試してみた所、私の期待通りに動作してくれました。
有難うございます。
申し訳ありませんが、あと１つだけ、教えてください。
先程のサンプルデータでは、重複データが７件ありました。
重複データをカウントして、下記の様に MsgBox に
アウトプットする方法を教えて頂けませんか？
↓
MsgBox "重複データが ●件あります"
>[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
|
|
G'z One
- 11/4/3(日) 22:58 -
