至急VBAに詳しい方教えてください！！

質問

至急VBAが詳しい方教えてください！！

こんにちわ。
マクロ作成の課題を出され、初心者なのでとても苦戦しています。
Do while notを２回使ってマクロを作成したいです。

画像のようなExcelデータがあり、A列(分類)～E列(商品名)までのデータは元から入力されています。
F列(重複)～H列(個数)にデータを入れるマクロを作りたいです。
F列(重複)⇒品名が重複していたら重複と文字を入れる
G列(商品名)⇒重複していた商品の名前を反映させる。
H列(個数)⇒重複していた商品の個数を反映させる。

毎日勉強しているのですが、期日が迫っており焦っています。
よろしくお願いします。

回答No.3

kmetu · ベストアンサー

Sub test()
Dim i, j

i = 2
j = 2
Do While Not i > Range("A" & Rows.Count).End(xlUp).Row
Do While Not j > Range("B" & Rows.Count).End(xlUp).Row
If Range("E" & i).Value = Range("B" & j).Value Then
Range("F" & i).Value = "重複"
Range("G" & i).Value = Range("C" & j).Value
Range("H" & i).Value = Range("D" & j).Value
End If
j = j + 1
Loop
j = 1
i = i + 1
Loop
End Sub

でいかがですか

お礼

やりたかった事が出来ました！！
本当に助かりました。
ありがとうございました！！

回答No.2

4017B

＞課題
例え出来なくても最後まで自力でやらないと意味ないんじゃないでしょうか？
それにもしかしたら質問自体も規約に違反してるかもしれないし…。

プログラム習得は常に“Try＆Error”です。
まあ頑張ってね(笑)。

回答No.1

rukuku

こんばんは

＞マクロ作成の課題を出され
＞Do while notを２回使って
なぜそのような制約があるのでしょうか？

実際に検証したわけではありませんが、If関数、CountIf関数、VLOOKUP関数を上手く組み合わせれば関数だけでも出来そうです。