| |
皆様、はじめまして。
VBA初心者の者ですが、以下のデータをVBAを使用して
重複チェックしたいと考えているのですが、どのように
コードを記載すればよいのか分からず、どなたか分かる方が
いらっしゃいましたら、ご教授お願いできませんか？
お手数ですが、宜しくお願い致します。
シートのD列とE列に、以下のようなデータがあるとします。
Keyとコードを組み合わせて、注文NOとし、[J列]に出力します。
更に、同じ注文NOがあれば、[K列]にて、（重複）と出力したいです。
[A] [D] [E] [J] [K]
[1] 項 key コード 注文NO チェック
[2] 1 ● 1 ●１ （重複）
[3] 2 ▲ 2 ▲２ （重複）
[4] 3 ■ 3 ■３
[5] 4 ★ 4 ★４ （重複）
[6] 5 ● 1 ●１ （重複）
[7] 6 ● 2 ●２
[8] 7 ■ 1 ■１
[9] 8 ★ 4 ★４ （重複）
[10] 9 ▲ 3 ▲３
[11] 10 ▲ 2 ▲２ （重複）
[12] 11 ★ 4 ★４ （重複）
・ ・ ・ ・ ・
・ ・ ・ ・ ・
・ ・ ・ ・ ・
２行目と６行目のデータが重複しています。 ⇒●１
３行目と11行目のデータが重複しています。 ⇒▲２
５行目と９行目と12行目のデータが重複しています。⇒★４
本を見ながら見よう見真似で、下記の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
|
|
G'z One
- 11/4/3(日) 21:31 -
