|
皆様、はじめまして。
VBA初心者の者ですが、以下のデータをVBAを使用して
重複チェックしたいと考えているのですが、どのように
コードを記載すればよいのか分からず、どなたか分かる方が
いらっしゃいましたら、ご教授お願いできませんか?
お手数ですが、宜しくお願い致します。
シートのD列とE列に、以下のようなデータがあるとします。
Keyとコードを組み合わせて、注文NOとし、[J列]に出力します。
更に、同じ注文NOがあれば、[K列]にて、(重複)と出力したいです。
[A] [D] [E] [J] [K]
[1] 項 key コード 注文NO チェック
[2] 1 ● 1 ●1 (重複)
[3] 2 ▲ 2 ▲2 (重複)
[4] 3 ■ 3 ■3
[5] 4 ★ 4 ★4 (重複)
[6] 5 ● 1 ●1 (重複)
[7] 6 ● 2 ●2
[8] 7 ■ 1 ■1
[9] 8 ★ 4 ★4 (重複)
[10] 9 ▲ 3 ▲3
[11] 10 ▲ 2 ▲2 (重複)
[12] 11 ★ 4 ★4 (重複)
・ ・ ・ ・ ・
・ ・ ・ ・ ・
・ ・ ・ ・ ・
2行目と6行目のデータが重複しています。 ⇒●1
3行目と11行目のデータが重複しています。 ⇒▲2
5行目と9行目と12行目のデータが重複しています。⇒★4
本を見ながら見よう見真似で、下記のVBAを作成したのですが、
[D]列のKEY と [E]列のコードを組み合わせて、[J]列に
注文NOを出力する方法が分かりません。
下記のコードの前に、注文NOを出力する方法を教えて頂けませんか?
Sub 重複チェック()
With Range("K2").Resize(Range("J" & Rows.Count).End(xlUp).Row)
.Formula = "=IF(COUNTIF(J:J,J2)>1,""重複"","""")"
.Value = .Value
End With
Range("A1").Select
MsgBox "チェック終了"
End Sub
|
|