Sheet1 にこんなデータ↓があるとします。(２行目以降は乱数で適当に作っただけ) そして、"KEY"別に"DATA"をピボットテーブルで集計しようと QuizPivotTable マクロを作りました。 Sub QuizPivotTable() Dim shtA As Worksheet Dim rngA As Range Dim pvtA As…

結合セルの場合、左上のセルにしか値を持つことができない… な〜んてことはありません。 ちょっと細工をすれば、どのセルにもそれぞれ異なる値を持たせることが可能です。 やり方は以下のとおりです。 先にセルを結合しておきます。 そして、結合セルと同じ…