┌──────────────────────────────────────┐
│With 入力シート                                                             │
│    y入Max = .UsedRange.Rows(.UsedRange.Rows.Count).Row                     │
│    x出 = 1                                                                 │
│    ' 一件目                                                                │
│    y入 = 1                                                                 │
│    Do While y入 <= y入Max _                                                │
│         And .Cells(y入, Xキー).Value = ""                                  │
│        y入 = y入 + 1                                                       │
│    Loop                                                                    │
│    Do While y入 <= y入Max                                                  │
│        出力シート.Cells(y出, X見出).Value = .Cells(y入, X集合キー).Value   │
│        合計 = 0                                                            │
│        oldキー = .Cells(y入, X集合キー).Value                              │
│        Do                                                                  │
│            合計 = 合計 + .Cells(y入, X値).Value                            │
│            ' 次へ                                                          │
│            y入 = y入 + 1                                                   │
│            Do While y入 <= y入Max _                                        │
│                 And .Cells(y入, Xキー).Value = ""                          │
│                y入 = y入 + 1                                               │
│            Loop                                                            │
│        Loop While y入 <= y入Max _                                          │
│               And .Cells(y入, X集合キー).Value = oldキー                   │
│        出力シート.Cells(y出, X合計).Value = 合計                           │
│        x出 = x出 + 1                                                       │
│    Loop                                                                    │
│End With                                                                    │
└──────────────────────────────────────┘