データを製品別に集計

sheet1にあるデータの集計結果をsheet2に出したいです。
実際、製品の種類は複数、データ数は5000以上あります。
製品の銘柄と倉庫は固定です。
画像では違いますが製品の並びは昇順にしたいです。

これをVBAで行いたいです。

お詳しい方宜しくお願いいたします。

No.3 ベストアンサー 回答者： fujillin 回答日時： 2022/09/12 09:18

こんにちは

ご質問の内容は、セル範囲の取得（＝最終行の取得）を除けば、ほとんど「マクロの記録」でまかなえる範疇ですね。

Sub Sample()
Dim sh As Worksheet, mRow As Long

Set sh = Worksheets("Sheet2")
Worksheets("Sheet1").Columns("F:I").Copy sh.Columns("A:D")
sh.Range("A1").Resize(sh.Cells(Rows.Count, 1).End(xlUp).Row, 4) _
.RemoveDuplicates Columns:=1, Header:=xlYes

mRow = sh.Cells(Rows.Count, 1).End(xlUp).Row
If mRow < 2 Then Exit Sub
sh.Range("A1").Resize(mRow, 4).Sort key1:=sh.Range("A1"), Header:=xlYes
With sh.Range("C2").Resize(mRow - 1)
.FormulaLocal = "=SUMIF(Sheet1!F:F,A2,Sheet1!H:H)"
.Value = .Value
End With
End Sub

この回答へのお礼

ありがとうございました！！
冷静に考えればそうですね。。
難しく考えすぎてたかもしれません。

お礼日時：2022/09/13 07:47

No.2 回答者： めくりや 回答日時： 2022/09/11 21:24

こういう流れ

１．作業用シートを生成
２．作業用シートに転記
３．作業用シートをsort
４．作業用シートを集約
５．作業用シート合計と元シート合計を突合しベリファイ
６．作業用シートから転記
７．作業用シートを削除

No.1 回答者： t_fumiaki 回答日時： 2022/09/11 21:22

回答になってませんが・・・。

vbaばっかりで処理してると時々嫌になって、ピポットテーブルでやってます。

この回答へのお礼

ありがとうございます。ピポットテーブル勉強してみます、、

お礼日時：2022/09/13 07:45