検索&自動計算

質問

いつも回答いただきありがとうございます。

sheet1からsheet2に転記する際に
sheet1の1行目からひとつづつ転記するようにマクロを組んでいます。(nextを使って)
sheet2に転記される際に重複する値があれば、数値を加算されるようにしたいのですが
どなたかご教授の方宜しくお願い致します。

(sheet1)
a 　　　 b 　 　

1 りんご　　2
2 みかん　 4
3 りんご　　3
4
.
.

↓

(sheet2)
a 　　　 b 　 　　

1 りんご　　5
2 みかん　 4
3 　
4
.
.

回答No.3

hallo-2007

＞sheet1の1行目からひとつづつ転記するようにマクロを組んでいます。(nextを使って)
こういった発想も当然あります。
プログラムの流れ（アルゴリズムとも呼びますが）
１、１行目から順に確認していって、重複していなければA列の内容を別シートに追加していく
２、重複なしの項目が準備出来たら、Sumif関数でも活用して合計をB列に出していく
といったような２段の流れになるかと思います。

別案ですが、エクセルには　PibotTable　が準備されています。
一度、ピボットテーブル作成すると、ご希望の情報が別シートに自動で作成されます。
表示がご希望と合わなければ、PibotTableのシートの結果をご希望のシートに引っ張ってくる方が
動作も早くて便利かと思います。

補足

すいません。説明不足でした。
マクロでA列の値のシートが作成されるように作ってます。
シートが無ければ作成→転記、あれば転記のみ。
転記もB,C,D,E列と多数あります。
検索値もB,C,D列とし同じものがあれば、E列に足し算され、
無ければ、次の行に転記されるように出来ればと思っています。

はじめの説明が簡潔にと思い、不足してしまいました。
この説明は大丈夫でしょうか？
よろしくお願いします

回答No.2

imogasi

なぜＶＢＡを使うのか。ＶＢＡの勉強をしたいのか。
ーー
関数でも出来るよ。
Ｓｈｅｅｔ２にＳｈｅｅｔ１のＡ列の重複しないものを作り出す（フィルタオプションに設定ー「重複するレコードは無視する」を使う）。
例データ
xx
a 1
b 2
c 3
a 4
b 5
d 1
f 2
a 3
c 4
Ｓｈｅｅｔ２で（Ｓｈｅｅｔ１で操作しないこと）
データーフィルターフィルタオプションの設定
指定した範囲ＯＮ
リスト範囲　Ｓｈｅｅｔ１！＄Ａ＄１：＄Ａ＄１０
検索条件範囲　空白のまま
抽出範囲　Ｄ１：Ｄ１０　　＜－Ｓｈｅｅｔ２ということ
重複するレコードは無視する　ＯＮ
ＯＫ
結果　Ｄ列
xx
a
b
c
d
f
Ｅ列に　Ｅ２に
=SUMIF(Sheet1!$A$2:$A$10,D2,Sheet1!$B$2:$B$10)
下方向に式を複写
結果
xx
a 8
b 7
c 7
d 1
f 2
ーー
これをＶＢＡでもやれるが、
ーー
重複するレコードを無しにした１セットをＳｈｅｅｔ２にでも用意したほうがＶＢＡロジックや関数が簡単。
ーー
ほかにＶＢＡなら
Ｓｈｅｅｔ１をＡ列でソートして、前の行のＡ列の値を保持する変数を設けて、Ａ列で各行について、前の行と同じなら変数係数を足しこむ。
変わったらその変数の値を書き出して、（その場合Ａ列のデータも同時に書き出す）
変数には今の行の数をセットする。
これを最終行まで繰返す。
こういうロジック（ソート法）が能率的とおもう。
毎行で同じ行を捜していたら混乱するだろう。
ーー
（１）シートが２つ現れるがその扱い方のコード
（２）最終行の行数をとらえるコード
など判ってないとならない。大丈夫か。これさえ判ってないようだとＶＢＡは勉強が足りない。
それにＶＢＡはロジックというものを経験で会得することが肝心。ＶＢ文法の勉強だけではプログラムは組めない。

回答No.1

noname#158634

私はいつも回答はしてませんが今回は回答してもいいでしょうか？(笑)

SUMPRODUCT関数はご存知ですか？マクロでなければならない積極的理由がないのならSUMPRODUCTのほうが簡単ですが。