Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

23273 / 76732

←次へ　｜　前へ→


	【58828】シート１にシート２のデーターの貼付け

伊藤 - 08/11/13(木) 10:41 -


	引用なし

	パスワード

シート１のデーターにシート２のデーターを貼り付ける　　　　　　　　　　　　　　　　　　　　　　　　　　　　
sheet1（受注台帳）　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　顧客コード　　　　品名　個数　金額　　　　　　　顧客コード　　　　顧客名　　　　住所
1　　　　1002　　　　ＬＬＬ　　　　5　　　　5000　　　　1002　　　　いいい　　　　2222
2　　　　1006　　　　ＢＢＢ　　　　3　　　　3000　　　　1006　　　　たたた　　　　6666
3　　　　1008　　　　ＣＣＣ　　　　5　　　　6000　　　　1008　　　　つつつ　　　　8888
4　　　　1008　　　　ＤＤＤ　　　　8　　　　9000　　　　　　　　　　　　
5　　　　1009　　　　ＧＧＧ　　　　5　　　　5000　　　　1009　　　　ててて　　　　9999
6　　　　1009　　　　ＫＫＫ　　　　3　　　　3000　　　　　　　　　　　　
7　　　　1009　　　　ＡＡＡ　　　　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 受注１行ごとの出荷指示書を作成しょうと思っています。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　count = 0　　　　　　　　　　　　　　　　　　　　　　　　　　　　
s1max = Sheets("補助１").Range("A" & Sheets("補助１").Rows.count).End(xlUp).Row　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
s2max = Sheets("補助２").Range("A" & Sheets("補助２").Rows.count).End(xlUp).Row　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　For i = 2 To s2max　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　For j = 2 To s1max　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　If Sheets("補助１").Cells(j, ２) = Sheets("補助２").Cells(i, 2) Then　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　count = count + 1　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 Sheets("補助２").Range(Sheets("補助２").Cells(i, ３), Sheets("補助２").Cells(i, ４)).Copy　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　Sheets("補助１").Cells(j, ６).PasteSpecial Paste:=xlPasteValues 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　Exit For　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　 End If　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　 Next j　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　Next i　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　このマクロで貼り付けられるのですがsheet１の顧客コードが同じの場合　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　例 1008が2行、1009が3行には各一行しか貼付けができません　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　全ての行に顧客名、住所を貼り付けたいのです。宜しくご指導願えますか。

2 hits

▼

【58828】シート１にシート２のデーターの貼付け 伊藤 08/11/13(木) 10:41

≪