|
シート1のデーターにシート2のデーターを貼り付ける
sheet1(受注台帳)
顧客コード 品名 個数 金額 顧客コード 顧客名 住所
1 1002 LLL 5 5000 1002 いいい 2222
2 1006 BBB 3 3000 1006 たたた 6666
3 1008 CCC 5 6000 1008 つつつ 8888
4 1008 DDD 8 9000
5 1009 GGG 5 5000 1009 ててて 9999
6 1009 KKK 3 3000
7 1009 AAA 2 3000
sheet2(顧客台帳)
顧客コード 顧客名 住所
1 1001 あああ 1111
2 1002 いいい 2222
3 1003 ううう 3333
4 1004 えええ 4444
5 1005 おおお 5555
6 1006 たたた 6666
7 1007 ちちち 7777
8 1008 つつつ 8888
9 1009 ててて 9999
10 1010 とととと
sheet1とsheet2の顧客コードが一致した場合、sheet1に顧客名、住所を貼付
sheet1 受注1行ごとの出荷指示書を作成しょうと思っています。
count = 0
s1max = Sheets("補助1").Range("A" & Sheets("補助1").Rows.count).End(xlUp).Row
s2max = Sheets("補助2").Range("A" & Sheets("補助2").Rows.count).End(xlUp).Row
For i = 2 To s2max
For j = 2 To s1max
If Sheets("補助1").Cells(j, 2) = Sheets("補助2").Cells(i, 2) Then
count = count + 1 Sheets("補助2").Range(Sheets("補助2").Cells(i, 3), Sheets("補助2").Cells(i, 4)).Copy
Sheets("補助1").Cells(j, 6).PasteSpecial Paste:=xlPasteValues
Exit For
End If
Next j
Next i
このマクロで貼り付けられるのですがsheet1の顧客コードが同じの場合
例 1008が2行、1009が3行には各一行しか貼付けができません
全ての行に顧客名、住所を貼り付けたいのです。宜しくご指導願えますか。
|
|