同じ名前があれば数値のみ追加、無ければ名前と数値を追加
花.xlsのsheet1に
A列 B列
バラ 2
コスモス 4
バラ 5
ひまわり 5
コスモス 8
欄 3
と花の種類と本数があります
VBAのコマンドボタンを押すと
在庫.xlsのA列とB列に
A列 B列
バラ 7
コスモス 12
ひまわり 5
欄 3
と花の名前を1つにして合計の本数を書き出すのですが
以下のページを参考のwatabe007さんの掲載を参考にさせて頂いて
出来るようになりました
http://questionbox.jp.msn.com/qa5631643.html
watabe007さんのアドバイス
Private Sub CommandButton1_Click()
Dim myDic As Object
Dim c As Range
Set myDic = CreateObject("Scripting.Dictionary")
For Each c In Range("A1", Cells(Rows.Count, "A").End(xlUp))
myDic(c.Value) = myDic(c.Value) + c.Offset(, 1).Value
Next
Range("D1").Resize(myDic.Count, 2).Value = _
Application.Transpose(Array(myDic.Keys, myDic.Items))
End Sub
>指定したエクセルファイル”kekka.xls”に
D1セルに出力していますので応用してください。
ここからが今回の質問です。
前出の”花.xls”の他に
花2.xlsがあり
A列 B列
カーネーション 6
バラ 2
椿 3
カーネーション 2
欄 6
菊 2
椿 5
ひまわり 9
バラ 3
と言う内容です。
やはりVBAのコマンドボタンをクリックすると
在庫.xlsのC列に本数を書き加えたいのですが
最初に花.xlsの情報がありますので
今度は同じ花の名前があればそのC列に本数を追加し
同じ名前の花が無ければA列に花の名前を追加して
C列に本数を書き加えたいのです。
A列 B列 C列
バラ 7 5
コスモス 12
ひまわり 5 9
欄 3 6
カーネーション 8
椿 8
菊 2
どうぞよいお知恵をお貸しください、
お願いします。
お礼
大変参考になりました。 詳しくご教授いただき、ありがとうございました。