増減するデータの集計について
Excel2013使用です。
「受注書」というシートのデータを集計し、「集計表」というシートに
書き出したいです。
【シート「受注書」】
C D E F G
1 商品名 色 数量 単価 備考
2 データ・・・・・・・・・・・・・・・
【シート「集計表」】
A B C D E
6 商品名 色 数量 単価 備考
7
シート「受注書」のC~Fのデータをコピーし、
シート「集計表」のA~Dに貼り付け後、商品名を基準に重複を削除し、
各商品の合計数量をSUMIF関数で集計するようにしました。
テストデータでは上手く行ったのですが、「受注書」のデータは都度
増減があるため、データを増やして再度テストしたところ、増やした分の
データが「集計表」の下部に残ってしまいます。
こんな感じ↓
【シート「集計表」】
A B C D E
6 商品名 色 数量 単価 備考
7 ***** ** *** *** **
8 **** ** *** *** **
12**** ** *** *** ** ←増やしたデータ
コードは以下の通りです
Sheets("受注書").Select
Range("C2:G2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("集計表").Select
Range("A7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("$A$6:$E$25").RemoveDuplicates Columns:=1, Header:=xlYes
Range("C7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("C7").Select
ActiveCell.FormulaR1C1 = "=SUMIF(受注書!C3:C5,集計表!RC1,受注書!C5)"
Range("C7").Select
Selection.AutoFill Destination:=Range("C7:C9"), Type:=xlFillValues
Range("C7:C9").Select
Range("A2").Select
End Sub
試しに
ActiveSheet.Range("$A$6:$E$25").RemoveDuplicates Columns:=1, Header:=xlYes
の部分を
ActiveSheet.Range("$A:$E").RemoveDuplicates Columns:=1, Header:=xlYes
に変えてみたところ、下部の重複データは消えたのですが、集計結果が何故か
A7以降にではなくA4以降に表示されてしまい、罫線も消えてしまいました。
更に、C列の数量に不要な0が表示されてしまいます。
こんな感じ↓
A B C D E
4 商品名 色 数量 単価 備考
5 ***** ** *** *** **
6 **** ** *** *** **
7 0
8 0
どこを直したら良いでしょうか?
お礼
ありがとうございました。参考にします。