Excel VBA質問箱 IV

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

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


23279 / 76738 ←次へ | 前へ→

【58828】シート1にシート2のデーターの貼付け
質問  伊藤  - 08/11/13(木) 10:41 -

引用なし
パスワード
   シート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行には各一行しか貼付けができません                                    
 全ての行に顧客名、住所を貼り付けたいのです。宜しくご指導願えますか。

0 hits

【58828】シート1にシート2のデーターの貼付け 伊藤 08/11/13(木) 10:41 質問
【58829】Re:シート1にシート2のデーターの貼付け にぃ 08/11/13(木) 11:02 発言
【58831】Re:シート1にシート2のデーターの貼付け にぃ 08/11/13(木) 11:14 発言
【58880】Re:シート1にシート2のデーターの貼付け 伊藤 08/11/15(土) 20:46 お礼
【58884】Re:シート1にシート2のデーターの貼付け Hirofumi 08/11/16(日) 11:53 発言
【58897】Re:シート1にシート2のデーターの貼付け 伊藤 08/11/17(月) 9:17 お礼

23279 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free