エクセルVBA シート1からシート2へ転記したい
シート1のデータはそのままで、
シート2に編集して転記したいです。
シート1にはA列からI列までデータが入っています。
行数は都度変わりますがデータは3行目から始まり
大体500行くらいです。
転記方法は
シート1のD列→シート2のA列
シート1のE列→シート2のB列
シート1のF列→シート2のC列
シート1のC列→シート2のD列
でシート1のD列の値が同じ場合は
転記先のシート2の行数は増やさずにシート1のC列の値を
同じ値のF列内にカンマでつないで転記したいです。
でそのつないだ合計数をシート2のE列に表示したいです。
イメージ
C D E F
------------------------
A1 みかん 国内 Sサイズ
A3 みかん 国内 Sサイズ
D6 みかん 国内 Sサイズ
D9 りんご 国内 Mサイズ
G7 りんご 国内 Mサイズ
F5 バナナ 海外 Lサイズ
G1 バナナ 海外 Lサイズ
A2 いちご 国内 Sサイズ
D8 いちご 国内 Sサイズ
F3 いちご 国内 Sサイズ
H2 いちご 国内 Sサイズ
↓
A B C D E
-------------------------------------------
みかん 国内 Sサイズ A1,A3,D6 3←3個
りんご 国内 Mサイズ D9,G7 2←2個
バナナ 海外 Lサイズ F5,G1 2←2個
いちご 国内 Sサイズ A2,D8,F3,H2 4←4個
上記例の場合は元データは11行ですが編集後は4行です。
配列は自力で作成できないので考え方を教えていただきたいです。
構文をそのまま書いていただいても大変助かります。
Do~LoopかFor~Nextで上から順最終行まで処理で
シート1からシート2へ転記する構文をかいて
D列の値が直前に処理した値と同じ場合は
転記はしないでC列の値を変数1に代入し
シート2の該当行のD列も変数2に代入し
変数1&","&変数2で対象行のD列に転記と考えましたが
うまくできませんでした。
またシート2のE列の求め方ですが、上記変数1,2に代入した後に
変数3=変数3+1とかの文でカウントし、
その値を転記すればいいのでしょうか?
すいません。今日1日頑張ってうまくできず
上手く説明できません。
よろしくお願いします。
お礼
8ビット=1バイトはわかるんですが、 256という数字が1バイトになるところがいまいち。。。(^_^;) 256はコンピュータの世界では良く使われる数字で 8の倍数、256も8の倍数ですよね。 ありがとうございました。